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ABSTRACT 


A preprocessing system was designed and constructed for use with the 
University of Illinois sodium lidar system. The preprocessing system was 
developed to increase the altitude resolution and range of the lidar system 
and also to decrease the processing burden of the main lidar computer. This 
work describes the preprocessing system hardware and the software required 
to implement the system. Also presented are some preliminary results of an 
airborne sodium lidar experiment conducted with the preprocessing system in- 
stalled in the sodium lidar. 
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1 . INTRODUCTION 

1.1 University of Illinois Sodium Lidar Observations 

Late in the 1930's a layer of sodium vapor was discovered in the 
earth's mesosphere. Observations of the layer since that time have deter- 
mined that the layer is generally confined to an altitude range of 80 to 
100 km with a peak density near 90 km. The upper and 1 ;wer boundaries of 
the layer are sharply defined and seasonal and daily variations in the layer 
have been observed. The layer continues to be studied in order to gain a 
better understanding of the motions in the layer and the neutral and ion 
chemistry of the region. 

Laser radar (lidar) has been used in tne remote sensing of atmospheric 
constituents since the early 1960 's. Initial nighttime lidar observations 
of the mesospheric sodium layer were conducted late in the 1960 's in England 
[Bowman et al., 1969]. Since then, similar measurements by several sodium 
lidar groups in various locations nave been reported. Initial lidar obser- 
vations of the layer at the University of Illinois were made in 1977. 

During the early experiments at the University of Illinois, emphasis 
was placed on observing relative structural changes in the layer [Richter 
and Sechrist, 1978]. In conjunction with this effort, a theory of sodium 
layer ion chemistry was developed [Richter and Sechrist, 1979]. To aid in 
the analysis of the data, signal processing techniques were developed and 
implemented [Rowlett and Gardner, 1979] . As the performance of the lidar 
system improved, theoretical and experimental studies of the response of the 
layer to gravity wave perturbations were conducted [Shelton and Gardner, 
1981]. Recent interest 1 u s been directed toward studies of the horizontal 
structure of the layer and the implementation of a daytime sodium lidar 
system. 



f 


IE 



kv 

I 




£ 

£• 

¥ 


* 



2 


1 .2 General and Sodium Lidar Concepts 

Lidar is a remote sensing technique utilizing electromagnetic waves at 
optical frequencies. The detecting and locating of objects are accomplished 
by transmitting a laser pulse and analyzing the nature of the returned 
signal. Lidar systems require targets that exhibit scattering charac- 
teristics when subjected to a laser pulse such that a signal returning from 
the target is detectable above noise. 

A basic lidar system consists of a pulsed laser, a receiving telescope, 
a photodetector such as a photomultiplier tube, and data collection elec- 
tronics. The laser provides the transmitted pulse. Returning photons back- 
scattered by the target are collected by the telescope. The photode lector 
converts the collected photons to electrical pulses which are analyzed and 
recorded by the data collection electronics. 

The distance or range to the target is determined by measuring the 
elapsed time t r between the transmitted and received pulses. The range R is 
given by 

R - 1/2 ct 

r 

where c • 3 x 10 m/s, the speed of light. The 1/2 accounts for the two-way 
propagation of the pulse. Further qualities of the target may be ascer- 
tained by observing the intensity and/or the pulse shape of the returning 
signal. 

Sodium lidar utilizes the resonant scattering mechanism of neutral 
sodium atoms in the mesosphere. A pulse of light at a wavelength corre- 
sponding to a sodium transition line and incident on a mesospheric sodium 
atom causes a fluorescence which results in an enhancement of the returning 
signal. A tunable dye laser operating at 589.0 nm, the D 0 transition line 
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of sodium, is commonly used to provide the transmit pulse. 

Sodium lidar receiving systems generally operate in a photon-counting 
mode and use a range gate collection technique. As the transmit pulse 
propagates through the mesosphere, backscattered photons are counted over 
short time interval 6 At. The set of counts from the sequential intervals is 
a record of the photocounts versus range. The "range gate width" AR is the 
range resolution of this type of system and is given by 

AR - l/2cAt . 

The interval time At is often referred to as the "range gate time." "Range 
bin" is a term applied loosely to the storage location of the counts for a 
particular interval. The range R^ corresponding the ith range bin is 
given by 

R t - l/2c(t + At/2) 

where t is the time elapsed between the transmitting of the laser pulse and 
the beginning of the collection of the counts in the ith range bin. An 
estimate of the density of a target at a particular range (for example, 
sodium density at 90 km) is obtained by examining the number of counts in 
the corresponding range bin. 

Unfortunately, inmost sodium lidar systems the signal- to-noise ratio 
for a single laser pulse is quite poor. A common method of increasing the 
signal-to-noise ratio is to integrate over many laser pulses. This simply 
involves collecting counts for single laser pulses as described above and 
then adding the range bin counts to corresponding range bin couuts of 
previous laser pulses. The completed integration process results in a set 
of range bin counts which are collectively termed a "profile." The term 
"profile integration sum," in this report, refers to the range bin counts of 
an incomplete profile. The iotegraticn technique does increaue the signal' 
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to-noise ratio but the time resolution of the system is decreased. 

1.3 Objectives of This Investigation 

The main objectives of this investigation were to design and implement 
a preprocessing system for use in the receiving section of the University of 
Illinois sodium lidar system. The system was designed and developed to 
increase the altitude resolution and range of the lidar system and also to 
decrease the processing burden of the main lidar computer by performing the 
integration of the data collected from successive laser shots. 

A secondary objective is to present some preliminary results of an 
airborne sodium lidar experiment conducted by the University of Illinois 
Aeronomy Laboratory (Lidar Group) in conjunction with rhe National Aero- 
nautics and Space Administration (NASA). The initial testing of the 
preprocessing system with the complete lidar system was co -ucted during 
this experiment, and the experimental results establish a high confidence 
level of operation for the preprocessing system. 


2. UNIVERSITY OF ILLINOIS LIDAR SYSTEM 


2.1 introduction 

Observations of the mesospheric sodium layer vith lidar techniques 
began in 1977 at the University of Illinois [Richter and Sechrist, 1978]. 

The lidar system at this time consisted of a flashl amp-pumped dye laser 
developed at the University, a 0.38 m diameter Fresnel lens receiving 
telescope, a liquid nitrogen cooled photomultiplier tube (PMT), and a signal 
pulse discriminator and counter developed in a Physics Department research 
project. The system was located at the Aeronomy Laboratory Field Station 
near Urbana, Illinois. A Digital Equipment Corporation (DEC) PDP-15 
computer at the Field Station directed the collection and storage of the 
data. 

The next few years produced several changes in the Urbana lidar system. 
A counter interface was built to replace the Physics Department's pulse 
counter [Kinter, 1977]. The interface was designed to operate with an HP 
2114A microcomputer which allowed the system to be independent of the Field 
Station PDP-15. In 1979, a 1.22 m diameter Fresnel lens telescope super- 
seded the 0.3? m telescope [Rowlett and Gardner, 1979]. Also in 1979, a 
Digital Group Z-80 microcomputer replaced the H? 2114A [Teitelbaum and 
Sechrist, 1979]. Early in 1981, a f lashl amp-pumped dye laser, built by the 
Candela Corporation, was purchased for the lidar systan. This laser had 
better reliability and provided a higher pulse repetition rate than the 
previous laser. Two other items were also acquired early in 1981: an 

electrically cooled PMT housing which replaced the liquid nitrogen cooling 
system; and a pulse discriminator built by Princeton Applied Research, which 
replaced the Physics iscriminator. Later in 1981, the lidar computer system 
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was again upgraded with a DEC LSI-11/2 microcomputer replacing the Z-80 
[Vogel, 1982]. 

As the reliability and performance of the system increased, sodium 
lidar observations became feasible at sites other than Urbana. This allowed 
more diverse sodium lidar observations to be made as the lidar system was 
integrated with specialized pieces of equipment and facilities at other 
sites. In June 1981, October 1981, and May 1982 sodium lidar campaigns were 
conducted at the National Aeronautics and Space Administration (NASA) 

Goddard Space Flight Center (GSFC) near Greenbelc, MI). A steerable 48-inch 
astronomical telescope at GSFC allowed scanning-type (off-zenith) observa- 
tions of the sodium layer to be made. In March 1983, an airborne sodium 
lidar exper'^ent was conducted at the NASA Wallops Flight Center, Wallops 
Island, VA. Chapter 5 contains some preliminary results of this experiment. 

The most recent addition to the lidar system is the preprocessing 
system described in the following chapters of this report. The preproces- 
sing system replaces the old counter interface while also reducing the data 
processing burden of the LSI-11 main computer. The following sections of 
this chapter describe the lidar system hardware at the present time. A 
block diagram of the lidar system with the preprocessing system installed is 
shown in Figure 3.2 of Chapter 3. 

2.2 Transmitting System 

The principal component of the transmitting system is a Candela LFDL-1 
flashlamp-pumped tunable dye laser utilizing Rhodamine 6G Perchlorate in a 
methyl alcohol and water solution. The laser consists of three subsystems: 

(1) a laser head which contains the optical cavity, dye cell, and flashlamp; 

(2) a refrigeration/circulation (chiller) unit used for both cooling and dye 
flow systems; and (3) a control unit/high voltage power supply. The lase:: 


parameters are given in Table 2.1. 

Laser tuning is achieved through a grating and an etalon in the laser 
cavity. Coarse tuning adjustments are made manually with the grating while 
fine adjustments are made with the etalon which is positioned by a Burleigh 
motor-micrometer. The wavelength of the laser bean is monitored by divert- 
ing a small fraction of the beam to a monochromator and to a hollow-cathode 
sodium discharge tube. The monochromator, in combination with a Ret ; con 
diode array line scanner (part numbers: RC 301, RL 256G), is used to 
display the intensity of the laser beam portion as a function of wavelength 
on an oscilloscope. The output of a sodium lamp is also displayed as a 
reference. Coarse tuning adjustments are monitored with this arrangement. 
Fine tuning adjustments are monitored by observing the laser-induced changes 
in the voltage between the electrodes of the gas discharge plasma in the 
hoi low- cathode sodium tube (opto-galvanic effect). The electrode voltage is 
displayed on an oscilloscope. 

Completing the transmitting system are the final laser bean output 
optics which generally include a beam expander to reduce bean divergence, 
and dielectric-coated mirrors to steer the laser bean. 

2.3 Receiving System 

The major components of the receiving system are the telescope, the 
photomultiplier tube (PKT) and its associated electronics, and the pre- 
processing and main computer systems. A 1.22 meter diameter f/1.56 acrylic 
Fresnel lens is the collecting element for the telescope utilized at the 
Urbana site. A detailed discussion of the telescope is provided by Rowlett 
and Gardner [1979]. A 48-inch Cassegrain astronomical telescope with Coude 
focus was employed for observations conducted at NASA Goddard Space Flight 
Center. The telescope is part of a versatile facility that also includes a 
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TABLE 2.1 CANDELA LFDL-1 LASER PARAMETERS. 


Wavelength 

589.0 nm 

Pulsewidth (FWHM) 

2 psec 

Linewidth 

1 pm 

Energy per pulse 

50 mj 

Pulse repetition rate 

10 Hz 

Beam divergence 

1 tnrad 

Flashlamp lifetime 

3 x 10 6 shots 
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computer-controlled pointing system capable of tracking stars and satel- 
lites. The airborne lidar system at NASA Wallops Flight Center utilized a 
16-inch diameter primary, Newtonian configured telescope. 

The telescope optics required for the 1.22 m Urbana telescope are shown 
in Figure 2.1. The collected photons are focussed by the Fresnel lens onto 
the plane of a field-stop iris. Beyond the iris, the beam is collimated by 
a Nikon 35 mm f/1.4 lens prior to its passage through an interference 
filter. The interference filter is used to reduce the number of photons due 
to background sky illumination. Two temperature controlled filters with 
bandwidths of 5 and 0.5 nm are currently used with the system. The filter 
selected for a particular experiment depends on the experimental objectives, 
received signal intensity at the time of the experiment, etc. A lens in the 
PHI housing focusses the photons passed by the filter onto the cathode of an 
RCA C31034A PMT. To reduce dark counts, the PMT is thermoelectrical ly 
cooled by a Products for Research Model TE-206TS-RF cooled housing. 

Due to the relatively long focal lengths of the 48-inch Goddard tele- 
scope (1300 in, f/27) and the 16-inch Wallops telescope (approximately 400 
in, f/25), the receiving optics arrangement following these telescopes is 
simplified from that shown in Figure 2.1. The long focal lengths provide a 
nearly collimated beam of collected light at the focus of the telescope. 
Therefore, the field-stop iris and the Nikon collimating lens are not 
required in front of the interference filter and the PHT focusing lens is 
positioned at the focal point of the telescope. 

The output of the PMT is applied to a Princeton Applied Research Model 
1121 Amplifier-Discriminator. The discriminator compares the pulses 
generated by the PMT to a preset threshold level. NIM standard (18 mA 
(- 1 V) , 12 nsec) and emitter-coupled logic (ECL) level pulses are produced 


OBtONM- 



Figure 2.1 Schematic diagram of 1.22 m telescope optics [Rowlett 
and Gardner, 1979]. 
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by the discriminator after receiving PUT pulses that exceed the thxeshold. 
The discriminator pulses (currently from the NIM standard output) are 
counted by the preprocessing system. 

At very high counting rates (above 20 MHz) the PMT is subject to over- 
loading conditions which cause significant errors in the recorded number of 
detected photons. Strong Rayleigh scattering of the laser beam below 30 km 
altitude consistently provides very high counting rates that disturb counts 
collected from altitudes below 30 !an ?*> well as those collected from alti- 
tudes above 30 km as the PMT is recovering. A PMI blanking controller and a 
timing controller were constructed to alleviate PMT overloading due to 
Rayleigh scattering [Shelton and Gardner, 1981]. 

The blanking controller achieves the blanking or gating of the PMT by 
reducing the voltage of the first dynode of the PMT with respect to the PMT 
cathode potential, effectively decreasing the overall gain of the PMT. 
Measurements on this system indicate the gain is reduced by approximately 3 
orders of magnitude. The PMT recovery time after blanking has been observed 
to be on the order of 6 to 10 psec. Therefore, the blanking controller can 
be engaged to blank the PMT as scattered signal below 30 km altitude is 
collected, and disengaged for data collection above 30 km altitude. 

The timing controller synchronizes the firing of the laser and the PMT 
gating. The triggering of the timing controller is initiated by a pulse 
received from the preprocessing system. After triggering, the timing con- 
troller engages the blanking controller and delays 5 psec before sending a 
trigger pulse to the laser. The delay ensures the blanking of the PMT is 
complete as the laser fires. Approximately 200 psec after the laser trig- 
gering (corresponding to an altitude of 30 km), the blanking controller is 
disengaged and data collection continues. A variable resistor in the timing 
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controller sets the blanking duration. 

The preprocessing and LSI-11 main computer systems are discussed in the 
following chapters. In general, the preprocessing system initiates the 
laser firing, counts the discriminated pulses from the amplifier-discrimi- 
nator, and integrates the counts from consecutive laser shots. The main 
computer directs the overall experiment and permanently stores the collected 
data on a floppy disk. 
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3. THE PREPROCESSING SYSTEM 


3.1 Introduction 

The sodium lidar preprocessing system is designed to direct the 
collection of data for one concentration vs. altitude profile of the 
mesospheric sodium layer. The system controls laser firing, counts the 
returning discriminated photon pulses, sections the counts into appropriate 
range bins, and integrates similar range bins over consecutive laser shots 
to form a profile. Completed profiles are sent to a main computer for 
further processing and storage. As mentioned previously, the system was 
devised to decrease tht; data processing burden of the main computer. 

The system consists of two major pieces of hardware: an Apple II Plus 

microcomputer and the Sodium Lidar Preprocessing (SLIPP) interface unit. 
Other hardware items include a Direct Memory Access (DMA) circuit for the 
Apple-SLIPP unit communications and a RS-232 standard serial communications 
link between the Apple and the main computer. Software routines drive the 
Apple and the main computer. 

The Apple computer masterminds the profile collection. All communi- 
cations with both the SLIPP unit and the main computer, laser firing, and 
integrations are handled through the Apple's software. The range bin counts 
and the profile integration sum are stored in the Apple's Random Access 
Memory (RAM). The Apple also displays messages on its video screen to 
notify the lidar operator of the present status of the system. 

The SLIPP unit interfaces the Apple to the transmitting and receiving 
sections of the lidar system. Line driver circuitry in the SLIPP unit 
allows the laser to be triggered by the Apple. After a laser shot the 
received photon pulses are counted in the SLIPP unit. The SLIPP unit has no 
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memory of its own so each range bin collected is immediately transferred to 
the Apple RAM through the DMA circuitry. 

Although not strictly considered part of the preprocessing system, the 
lidar main computer and its software are closely associated with the 
preprocessing system. The main computer for the University of Illinois 
lidar system is a DEC LSI 11/2 computer. The LSI-11 directs the overall 
experiment. It is programmed with the information on time to collect a data 
profile and the number to collect. Through the LSI-11 terminal the lidar 
operator is able to access and change these experiment parameter)''. An 
RS-232 standard serial communications link allows the LSI-11 to rend 
commands to the Apple and the Apple to send data profiles back to the 
LSI-11. The LSI-11 also gives the operator a summary of each of f ne 
completed profiles and stores the profiles on a floppy disk. 

3.2 Data Acquisition Timing 

The desired pulse repetition rate of the laser and the desired rate of 
collecting data profiles were two parameters of particular interest during 
the designing of the preprocessing system. The system had to be able to 
integrate data from consecutive laser shots witn enough speed to let the 
laser operate at its maximum pulse rate (10 Hz), and the data transfer from 
the preprocessing system to the main computer had to be reasonably fast so 
as not to cause any long delays between data profiles. Figure 3.1 is a 
timing diagram of the data collection process timing for the completed 
preprocessing system. 

Fart (a) of Figure 3.1 shows the collection process for a single laser 
pulse. The laser is initially triggered by the preprocessing system. Two 
thousand range bins of data are then immediately collected. This requires 
about 2000 usees as the range gate time is 1 ysec for each bin. Another 
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61 ,OQG usees are required by the Apple to integrate the data from the cur- 
rent laser shot into the profile integration sum. Therefore, the data 
preprocessing requires about 63,000 usee total per laser pulse. 

Repeating laser pulses at 10 Hz are shown in part (b) of Figure 3.1. 

The data collection and integration times are denoted after each laser 
pulse. It is evident that the preprocessing system is able to operate with 
laser pulse rates exceeding 10 Hz. 

Part (c) of Figure 3.1 shows the collection of completed profiles. A 
data profile is stored in Apple RAM as 2000 16-bit words. Therefore, 
roughly 4 seconds are required for the Apple to send the completed profile 
over the serial link to the LSI-II at 9600 baud. The LSI-11 uses another 3 
seconds to store the profile on a floppy disk and give the operator a 
summary of the profile. The total delay of 7 seconds between the end of one 
profile and the beginning of the next is tolerable. More details on system 
timing are included in Section 3.4 on system parameters. 

3.3 System Operation Description 

This section describes in general terms the interactions of the 
preprocessing system with the rest of the lidar system during the collection 
of a data profile. Figure 3.2 is a block diagram of the lidar system with 
the preprocessing system installed. Some of the block items in the figure 
are explained i:. more detail in Chapter 2 on the lidar system hardware. The 
figure is a useful reference for the following discussion on the system 
operation. 

A 1 idar data run begins with the operator inputting or changing 
experiment parameters on the LSI-11 terminal. These parameters include the 
number of profiles per set, the profile range bins to be saved, laser rep 
rate, etc. (see Section 5.2.2). Once the operator has initiated a data run, 
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Figure 3.2 Lldar system with preprocessing system installed. 
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the LSI-II sends two commiaiication frsaes to the Apple over the serial link. 
The first frame contains information on tbs desired laser pulse rep rite and 
the desired number of laser shots per profile. The second frame signals the 
Apple to begin collecting a profile. 

The first action of the Apple upon the receipt of the "data run" frame 
is to initialize the DMA circuitry for data transfer from th 2 SLIPP unit to 
the Apple RAM. Next, the Apple clears the block of PAM that holds the pro- 
file integration sum. Finally, the Apple sends the laser trigger pulse to 
the SLIPP unit. The laser pulse not only passes through the SLIPP unit to 
trigger the laser and the PMT timing circuitry but also enables the SLIPP 
unit for counting. 

Once enabled, the SLIPP unit waits for the Laser Command Pulse (LCP). 
This is a positive logical pulse that is generated by a laser pulse detector 
vhen the laser fires. The LCP notifies the SLIPP unit that the laser has 
fired and the unit begins counting photon pulses in 1 usee intervals. A 
this point the DMA circuitry takes control of the Apple buses and each 
interval, or range bin, collected is immediately stored in the Apple RAM 
through DMA. The SLIrP urit actually uses two toggling counters in order 
that during any 1 ysec interval , one counter is counting photon pulses while 
the contents of the other counter are being placed in memory. When all of 
the range bins are collected, normally 2000, the DMA circuitry disables the 
SLIPP unit and the Apple regains control of its address and data buses. 

Next, the Apple checks a status bit in the DMA circuit to be sure the 
DMA occurred. If the bit is not set a problem occurred, such as the laser 
never fired, and the Apple jumps to an error routine. With the bit set, the 
Apple adds the new range bin counts into the profile integration sum. The 
collection process is now complete for one laser shot. The Apple checks to 
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see if the profile requires more laser shots. If so, the Apple sends the 
next laser trigger pulse, enables the SLIPP unit, and the collection begins 
again. If the profile is complete it is sent over the serial link to the 
LSI-11 . 

After receiving the profile the LSI-11 does some simple calculations 
and gives the operator a summary of the profile (see Section 5.2.2 for more 
details). The summary is given both on the terminal and a hard copy 
printer. The data are stored on a floppy disk and the collection of one 
profile is complete. If more profiles are to be collected, the LSI-11 sends 
the "data run" frame to the Apple again. If the set of profiles is finished 
the LSI-11 alerts the operator and waits for the next command. 

3.4 System Parameters 

This section contains descriptions and values of the important 
parameters of the preprocessing system. Definitions of some of the terms 
used in this section can be found it. Section 1.2. A list of the parameter 
values is given in Table 3.1. 

Range Gate : 

The range gate time is fixed by the logic in the SLIPP interface unit 
at 1 ystc. This corresponds to a range gate width of 150 meters for each 
range bin. This is the maximum resolution of the system. 

Range Bins : 

The preprocessing system currently collects 2000 range bins of data for 
each laser shot. With the 1 psec range gate time mentioned above, the total 
system range is 300 km. The number of range bins used for data collection 
may be changed with a few Apple software alterations. 

Photon Pulse Count Bandwidth: 


The counters and associated logic in the SLIPP interface unit are 


TABLE 3.1 PREPROCESSING SYSTEM PARAMETERS 


Range gate time 
Number of range bins 
Photon pulse input (NIM) 
Photon pulse count bandwidth 
Inter-profile period 


1 psec 
2000 

-18 mA( - -1 V) 
50 + MHz 
7 sec 


21 


capable of detecting NIM standard (-18 mA (-1 V), 12 nsec) signal pulses 
with rates exceeding 50 MHz. However, the discriminator used by the 
University of Illinois sodium lidar (P.A.R.C. Model 1121) which provides the 
pulses for the counters is rated at only 37 MHz for random pulses. It is 
also apparent that the PKT in the sodium lidar system (RCA C31034A) 
generally overloads at count rates approaching 20 MHz. The SLIPP unit was 
also designed for possible future expansion to a balanced, emitter-coupled 
logic (ECL) compatible, 5 nsec pulse count input. This would reduce noise 
created in the cable between the discriminator and the SLIPP unit. The 
balanced ECL and standard NIM outputs are both provided by the P.A.R.C. 1121 
discriminator. 

Data Acquisition Rate : 

The time necessary to obtain one sodium data profile is. of course, 
dependent on the number of laser shots required and the laser repetition 
rate. A little more than 4 seconds are necessary for a profile to be 
transferred from the Apple to the LSI-11. Three seconds are required by the 
LSI-11 to display a summary of tae profile on the terminal and printer, and 
store the profile on a floppy disk. Therefore, with a laser operating at 
10 Hz, a profile requiring 100 shots can be collected in about 17 seconds. 
Data Storage : 

Apple Memory - The Apple Random Access Memory is used to temporarily 
store the incoming range bin counts and the profile integration sum. The 
range bin counts are recorded in 2000 8-bit bytes in an area of memory 
designated as "buffer memory." Two thousand integration sum bins a.e each 
16 bits in length and stored in an area designated as "mainframe memory." 

For programming ease 2048 (2K) bytes are allocated as buffer memory and 4096 
(4K) bytes are allocated as mainframe memory. The high order bytes and the 
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low order bytes of the 16-bit words in the mainframe memory are divided into 
two sections. This is a result of the addition routine used by the Apple to 
form the profile integration sum. 

LSI-Memory - A profile is sent from the Apple to the LSI-11 with the 
low order bytes of the 16-bit words first and the high order bytes second. 
The bytes are assembled upon receipt by the LSI-11 into 16-bit words and 
storea the array LDATA. 

LSI-11 Floppy Disk - The LSI-11 computer permanently stores sets of 
sodium data profiles on a floppy disk with a DEC floppy disk drive (both 
RX01 and RX02 type drives have been used). The profile sets are stored as 
unformatted direct access files. The name assigned to each file is 
SETxxx.DAT, where xxx is the number of the set. For example, SET001.DAT is 
the file name for the first set collected in a data run. 
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4. CIRCUITS DESCRIPTION 

4.1 Apple Direct Memory Access Circuit 

4.1.1 Introduction . Direct Memory Access is a fast and efficient 
method of transferring data to or from a computer's memory. This method 
involves a specialized device communicating directly with the computer's 
memory. The data transfer can therefore be performed with minimum inter- 
action from the microprocessor (MPU). The sodium lidar preprocessor design 
requires the Apple's Random Access Memory to store incoming photon counts 
from the SLIPP interface unit. The counts are recorded in bytes every 
microsecond which corresponds to a data transfer rate of 1 Mbyte/sec. This 
rate is much too fast for the Apple to handle in a software polling loop or 
an interrupt routine. Therefore, DMA is a necessity. The DMA controller 
selected for this project was the Motorola MC6844 Direct Memory Access 
Controller (DMAC) chip. The chip was designed for use with the Motorola 
MC6800 series microprocessors. However, strong similarities between the 
MOS 6502 microprocessor in the Apple and Motorola's MC6800 allow the MC6844 
DMAC to work ell with the Apple's circuitry. 

4.1.2 Apple timing . All clock signals, memory strobe signals, and 
video signals in the Apple II Flus are derived from a single 14.138 MHz 
oscillator on the main Apple circuit board. The various signals are 
obtained by using a number of counters, shift registers snd multiplexers. 
Figure 4.1 is a typical timing diagram for some of the Apple signals. 7M is 
an intermediate timing signal, $0 and $1 are system clocks, and Q3 is an 
asymmetrical general-purpose timing signal. The $0 Apple clock is compar- 
able to the $2 clock of other microprocessor systems. 
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During normal operation the Apple 1 8 RAM is used by both the 6502 and 
the Apple' 8 video generating circuitry. The 6502 accesses the RAM only 
during the high (+5 volts) half of the 40 clock while the video generating 
circuitry updates the video screen from the RAM during the low (ground) half 
of the 40 clock. The action of the video circuitry also refreshes all of 
the Apple's RAM. Because of this feature, the easiest implementation of the 
DMA controller is to have it essentially replace the 6502 during DMA data 
transfer periods. This implementation allows the video circuitry to 
continue to function normally during a DMA period. Another result of this 
type of DMA architecture is that the data transfer rate is dictated by the 
microprocessor system clock rate, 40 for the Apple, which would allow a 
maximum DMA transfer rate of 1.023 Mbyte/sec. The MC6844 DMAC was chosen 
because it is designed for the type of implementation discussed above and it 
is capable of operating at the Apple system clock rate. 

One peculiarity of the Apple timing system is that every 65th cycle of 
the 40 and 41 clocks is lengthened by about 140 nanoseconds. This corre- 
sponds to a frequency of 0.895 MHz for the long cycle. The lengthening is 
an artifact of the logic used to obtain the clock signals from the 14.318 
MHz oscillator. Because of this anomaly, the SL1PF interface unit was 
designed with its own oscillator and clock logic rather than using the 
Apple's. In order to place photon pulse counts in correct range bins the 
SLIPP unit must be able to determine accurately the time elapsed since the 
laser firing. This would not be possible with the Apple's inconsistent 
clock. This design results in the Apple and the SLIPP unit operating 
asynchronously. To account for the timing differences, an asynchronous 
First-In/First-Out buffer (FIFO) is used to interface the SLIPP unit and the 
Apple DMA circuit. For more details on the interfacing see Section 4.2.4. 



4.1.3 Apple peripheral input/output . Along the rear edge of the 


Apple's main board are eight peripheral connectors. The connectors or 
"slots" are labeled 0 through 7 beginning from the left-hand side of the 
board. Slots 1 through 7 are used for most peripheral applications while 
slot 0 was designed specifically for memory or interface expansion. The 
pinout for the slots is shown in Appendix I. The preprocessor DMA card was 
designed to be used in any of the slots 1 through 7. 

Each slot has specific memory locations assigned to it. This memory- 
mapped structure allows the user (or user's program) to access cards in any 
of the slots. Each slot is given 16 locations for general input and output 
purposes. The locations for the particular slots are listed in Table 4.1. 
Whenever the MPU calls an address within the 16-byte allocation of a par- 
ticular slot, the Device Select line (pin 41) on that peripheral connector 
will become active (drop to ground). By listening to the Device Select 
line, a peripheral card can determine when a byte in the general I/O space 
reserved for it is being addressed. 

In addition to the 16 general I/O locations, each slot is assigned 256 
locations (one page) of Read Only Memory (ROM) or Programmable ROM (PROM) 
space. These locations are listed in Table 4.2. Although allocated as 
peripheral card program space, these locations function in a similar manner 
as the general I/O locations. Whenever an address within the one page 
allocation of a particular slot is called, the l7o Select line (pin 1) 
on that peripheral connector will become active (drop to ground). A 
peripheral card can determine when its program space is being addressed by 
listening to the i/o Select line. The Apple accesses the preprocessor DMA 
card through both the general I/O and the program locations. The general 
I/O addresses are decoded on the DMA card to provide control signals for 
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TABLE 4.1 APPLE PERIPHERAL CARD GENERAL PURPOSE I/O 
LOCATIONS. 


SLOT 

LOCATIONS 

0 

$C080-$C08F 

1 

$C090-$C09F 

2 

$COAO-$COAF 

3 

$C0B0-$C0BF 

4 

$COCO-$COCF 

5 

$CODO-$CODF 

6 

$COEO-$COEF 

7 

$CQF0-$C0FF 

— 


TABLE 4.2 APPLE PERIPHERAL CARD PROM LOCATIONS. 


SLOT 

LOCATIONS 

1 

$C100-$C1FF 

2 

$C200-$C2FF 

3 

$C300-$C3FF 

4 

$C400-$C4FF 

5 

$C500-$C5FF 

6 

i 

$C600-$C6FF 

7 

$C700-$C7FF 
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firing the laser, resetting the SLIPP unit, etc. The progran locations are 
used to access the MC6844 DMAC programmable Control Registers. 

A DMA transfer with the Apple is accomplished by pulling the DMA line 
(pin 22) on the connector LOW. This disables the 6502's address bus and 
interrupts the clock to the 6502, effectively halting the microprocessor. A 
peripheral controller, such as the MC6844 DMAC, is able to supply the Apple 
RAM addresses while the DMA pin is held LOW. 

Other line present on the peripheral connector that are used by the DMA 
card include the clock signals 4>1 and Q3 (pins 38 and 37), the Read/Write 
line R/W (pin 18), and the Reset line RES (pin 31). 

The Apple peripheral connectors also provide pins to construct a daisy 
chain priority system for cards that issue interrupt or DMA requests. These 
pins are labeled INT IN, INT OPUT, DMA IN, and DMA OUT (pins 28, 23, 27 and 
24, respectively). The system was designed for the highest priority device 
to be installed in the left most slot of the Apple slots 1 through 7. It 
was apparent that in the preprocessing system the DMA card would not have 
any conflicts with other devices issuing DMA requests. Therefore, rather 
than constructing some arbitration logic testing for DMA request conflicts, 
the DMA IN and DMA OUT pins on the card were simple connected together to 
preserve the DMA daisy chain. The preserve the interrupt daisy chain, the 
INT IN and INT OUT pins on the card were connected together. 

4,1.4 The MC6844 DMAC . The MC6844 Direct Memory Access Controller 
is a TTL compatible chip that directs the DMA data transfer from the SLIPP 
unit to the Apple. It controls the address bus and the Read/Write line in 
the Apple in place of the 6502 during a DMA transfer. 

The MC6844 has three modes of operation and four DMA channels. The 
operation modes are as follows: 1) Three State Control (TSC) Steal - ic 
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this mode the MPU 2 clock is stretched while one byte of data is trans- 
ferred; 2) Halt Steal - the MPU is halted while one byte of data is trans- 
ferred; 3) Halt Burst - the MPU is halted while an entire block of data is 
transferred. The mode of operation selected depends on the transfer rate 
required with the Halt Burst mode giving the highest rate. The preprocessor 
DMA card was designed to use one channel of the MC6844 in the Halt Burst 
mode. 

The MC6844 pinout is shown in Figure 4.2. Before a DMA transfer begins, 
the DMAC must be programmed with the data transfer location and length, 
transfer mode, priority of servicing, data chaining, and interrupt control. 
The programming is accomplished through the first five address lines (A0- 
A5), the data bus, and the chip select pin (CS) on the DMAC. Tables 4.3 
and 4.4 show the programmable registers of the MC6844. These tables are 
provided as a quick programming reference. More DrutC programming details 
are provided in the Motorola specification sheets on the MC6844. 

TxRQO through TxRQ3 (pins 29-31) are the transfer request lines. There 
is one request line for each of the four channels. A peripheral device 
requests a DMA transfer by driving the transfer request line on a par- 
ticular channel HIGH. The preprocessor DMA card uses only channel #1 of 
the DMAC. 

Transfer acknowledge outputs notify the device requesting a transfer 
that the request has been received by the MC6844. The transfer acknowledge 
signals are TxAKA and TxAKB. The Transfer Strobe line (TxSTB) is a general 
acknowledge line which is also intended for use as the system Valid Memory 
Address (VMA) signal. 

After a transfer request has been received by the DMAC, the DMAC must 
issue a request to the system's MPU. This is done with either of the two 
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TABLE 4.3 MC6844 ADDRESS AND BYTE COUNT REGISTERS. 


REGISTER 

CHANNEL 

ADDRESS (HEX) 

ADDRESS HIGH 

0 

0 

ADDRESS LOW 

0 

I 

BYTE COUNT HIGH 

0 

2 

BYTE COUNT LOW 

0 

3 

ADDRESS HIGH 

1 

4 

ADDRESS LOW 

1 

5 

BYTE COUNT HIGH 

1 

6 

BYTE COUNT LOW 

1 

7 

ADDRESS HIGH 

2 

8 

ADDRESS LOW 

2 

9 

BYTE COUNT HIGH 

2 

A 

BYTE COUNT LOW 

2 

B 

ADDRESS HIGH 

3 

C 

ADDRESS LOW 

3 

D 

BYTE COUNT HIGH 

3 

E 

BYTE COUNT LOW 

3 

F 


TABLE 4.4 MC6844 CONTROL REGISTERS. 
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REGISTER 

ADDRESS 

(HEX) 
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REGISTER CONTENTS 

BIT 7 

BIT 6 

BIT 5 

BIT 4 

BIT 3 

BIT 2 

BIT 1 

BIT 0 

CHANNEL 

CONTROL 

m 

DMA 

FND 

BUSY/ 

READY 

- 

- 

UP/ 

DOWN 

TSC/ 

HALT 

BURST/ 

STEAL 

READ/ 

WRITE 

PRIORITY 

CONTROL 

14 

ROTATE 

CNTRL 

- 

■ 

- 

R 1 QST 
ENB 3 

R 1 QST 
ENB 2 

R 'QST 
ENB 1 

R’OST 
ENB 0 

INTERRUPT 

CONTROL 

15 

DEND 

IRQ 

FLAG 

- 


~ 

DEND 
IRQ 
ENB 3 

DEND 
IRQ 
ENB 2 

DEND 
IRQ 
ENB 1 

DEND 
IRQ 
SNB 0 

DATA 

CHAIN 

16 
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outputs DMA Request TSC-Steal (DRQT) or DMA Request Halt-Steal (DRQH). The 
DRQT line is normally connected to the system clock driver And used to 
request a MPU clock stretch for the TSC-Stesl transfer node. The DRQH line 
is connected to the MPU Halt pin and requests a transfer in the halt steal 
o; halt burst mode. 

After issuing a request to the MPU, the DMAC waits for a bus available 
signal. This signal is generally output from the MPU or the MPU clock 
circuitry and is presented to the DMA Grant pin (DGRNT). The DMA transfer 
begins once this signal is received. 

The Interrupt Request output and the IMA End signal are provided on the 
dual purpose line IRQ/DEND. The IRQ output is used to interrupt the MPU and 
signal the /eripheral device that a DMA transfer has ended. If the Inter- 
rupt has been <~n 'led, the IRQ/DEND line will go LOW after the last byte of 
a transfer. The IRQ/DEND line also goes LOW during the last byte of a 
transfer to signal the DMA End. This occurs whether the Interrupt is 
enabled or not. 

Other pins on the MC6844 include Read/Wri e (R/W), the clock input (42 
DMA), and Reset (RES). 

One option supported by the MC6844 and used by the preprocessing system 
is data chaining. Data chaining allows the repetitive reading or writing of 
a block of data without reloading the DMAC Address and Byte Count registers 
for each transfer. The chaining is performed by transferring the contents 
of the Address and Byte Count Registers in channel #3 to the channel 
selected by the programing of the Data Chain Control Register. The trans- 
fer automatically occurs after the Byte Count Register of che selected 


channel has decremented to zero 
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It should be noted that during a DMA transfer the DMAC is only supply- 
ing addresses for the system's memory at the MPU clock rate. The peripheral 
device requesting the transfer must write (or read) the data on the date bus 
at the MPU clock rate. 

4.1.5 DMA circuit description . The Apple DMA circuit for the 
preprocessing system was designed to transfer a block of data to (or from) 
the Apple RAM at a rate of 1.023 Mbytes/sec. The circuit was constructed 
on a 2-3/4" x 7" Apple II Peripheral Board and consists of the MC6844 DMAC 
chip supported by ten low-power Schcttky (LS) TTL chips. Connecting the 
Apple and the DMA card to the peripheral device requesting a DMA transfer is 
a 34-pin shielded ribbon cable. A connector for the cable is mounted on the 
DMA board. The card was designed to operate in any of the Apple peripheral 
slots 1 through 7 on the back of the main Apple board (see Section 4.1.3). 
The Apple slot pinout and the ribbon calbe pinout are listed in Appendix I. 
The locations of the components on the DMA card are noted in Appendix II. 
Figure 4.3 is the wiring schematic for the DMA card. The timing for a 
typical DMA transfer is shown in Figure 4.4. 

Both the Apple ROM I/O locations and general I/O locations are used to 
cmomunicate with the DMA card (see Section 4.1.3). The ROM I/O locations 
access the DMAC Control Reg. ,cers while the general I/O locations are 
decoded and used as "Control Signals." Table 4.5 lists the DMA card I/O 
locations. The DMAC Control Registers are programed through the first five 
address lines (A0-A4), the data bus, and the chip select pin (CS) on the 
DMAC (see S^tion 4.1.4). The CS pin must be pulled LOW while programming 
the DMAC registers. This is accomplished by the decoding of the Apple I/O 
Select line and the address lines A5 through A7 with a 74LS200 5-input NOR 
(chip U6 in Figure 4.3). The decoding allows 32 addresses to activate the 
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Figure 4.4 Apple DMA card transfer timing. 







TABLE A. 5 APPLE DMA CARD I/O LOCATIONS. 


LOCATION TITLE 

ADDRESS 1 

DESCRIP' ION 2 


SCnOO - SCnOF 3 

\DDRESi. AND BYTE COUNT REGISTERS 

DMAC CONTROL 

SCnlO - $Cnl3 3 

CHANNE', CONTROL REGISTERS 

REGISTERS 

$Cnl 4 

PPICRITY CONTROL REGISTER 

(I/O SELECT) 

$Cnl 5 

‘TERRUPT CONTROL REGISTER 


SCnl6 

DA -A CHAIN REGISTER 


SCOxO 

YO - APPLE DMA TxRQ 

CONTROL 

SCOxl 

71 - ( LASER TRIGGER ) 

LINES 

$C0x2 

71 - ( AUX OUTPUT ) 

(DEVICE SELECT) 

$C0x3 

71 


$C0x4 

77 - ( SLIPP UNIT RESET ) 


^ All hexadecimal addresses, n * Apple slot#; x * n + 8. 

2 The items in parentheses are the functions performed by the Control Signals in 
the preprocessing system. 

3 See Tables A. 3 and A. A for addresses of particular registers for each channel. 
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CS line. Because the DMA card only uses channel #1 of the DMAC for trans- 
fers and channel #3 for data chaining (see Section 4.1.4), only the pro- 
gramming of the Control Registers of those channels is pertinent. The 
Control Signals are generated by decoding address lines AO through A2 with a 
74LS138 3-to-8 line decoder (U7). The decoder is enabled by the address 
line A3 and the Device Select line from the Apple. To ensure that no 
spurious addresses are decoded during a DMA transfer, the 74LS138 is disabled 
by the DGRHT signal. 

Once the Control Registers are correctly loaded, a transfer request 
issued to the DMAC will initiate a DMA transfer. The DMA card allows 
requests from peripheral devices or the Apple itself. General ly, the 
request is issued by a peripheral device needing attention. This is done by 
pulling pin 15 on the ribbon cable LOW. This causes the TxRQl pin on the 
DMAC to go HIGH which constitutes a transfer request. The Apple issues a 
request through the Control Signal decoding logic (see Table 4.5). Reading 
or writing to the transfer request address sets the output of a 74LS74 flip- 
flop (U2a) HIGH. This also causes the TxRQl pin on the DMAC to go HIGH. 

The flip-flop is needed to hold the transfer request HIGH throughout the DMA 
transfer. 

The DMA card was designed to use the MC6844 in the Halt Burst mode 
which means an entire block of data is transferred sequentially. However, 
the transfer may be suspended by withdrawing the transfer request on the 
TxRQl pin of the DMAC. The timing diagram of Figure 4.4 shows this situa- 
tion. For the first byte of the Halt Burst mode the DMAC tests the TxRQl 
signal on the rising edge of the 4>2 DMA clock. In succeeding bytes the 
TxRQl signal is tested on the falling edge of 4>2 DMA, and data are trans- 
ferred during the next 4>2 cycle if TxRQl is HIGH. After a peripheral device 
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issues the transfer request (ribbon cable pin 15, LOW), simply withdrawing 
the request will suspend the transfer. A peripheral device can also suspend 
the transfer when the Apple has issued the transfer request. This is also 
done with pin 15 on the ribbon cable. However, in this case, pulling pin 15 
LOW suspends the transfer. This is a result of the exclusive-OR gate (U9) 
used to combine the Apple and the peripheral request lines. 

After receiving a transfer request the DMAC responds with two outputs, 
Transfer Acknowledge A (TxAKA) and DMA Request Halt (DRQH). One function of 
the TxAKA signal is to notify the peripheral device that a request has been 
received (ribbon cable pin 20). The TxAKA signal is al6o NOR-ed with DRQH 
(chips U3a, U8a and U8b) and the resulting signal is used to pull the DMA 
line on the Apple peripheral connector LOW, stopping the 6502 in the Apple. 
The TxAKA and DRQH signals are combined in order to hold the DMA line on the 
Apple LOW beyond the final DMA transfer cycle (see Figure 4.4). 

Once the DMA halt request has been presented to the Apple, the DMAC 
expects a DMA Grant signal (DGRNT) to be returned. This must occur before 
the transfer begins. Because there is no bus available (or equivalent) 
connection in the Apple peripheral slot, DGRNT is synthesized from TxAKA 
using a 74LS74 flip-flop (U2b). 

During the DMA transfer the Transfer Strobe line (TxSTB, ribbon cable 
pin 19) acts as the Valid Memory Address (VMA) line. The completed DMA 
transfer is marked by the DEND signal (ribbon cable pin 18). This signal 
comes from the dual purpose pin IRQ/DEND on the DMAC. The IRQ/DEND and 
TxSTB signals are OR-ed (U3b) to produce DEND. This prevents false signals 
arising from interrupt requests on the IRQ/DEND DMAC pin. By examining the 
DMA end flag, bit 7 of the Channel Control Register of channel #1 (location 
$Cnll, n ■ Apple slot #), the Apple may determine if the block DMA transfer 


has been completed. Reading of the Channel Control Register resets the DMA 
end bit. 

Except for the data lines, all outputs to the ribbon cable are buffered 
through either a 74LS367 or a 74LS368 6-input buffer. Other signals not 
mentioned previously that are available on the ribbon cable include: the 

Apple clock signals 40, 4>1 , and Q3 , the Control Signals Yl through Y4, and 
the Apple Reset line RES. 

As mentioned in Section 4.1.4 on the MC6844, during a DMA transfer the 
DMAC only supplies the Apple RAM with addresses and controls the Apple read / 
write line. The peripheral device sending (or receiving) the data must 
place the data on the data bus within the restrictions of the Apple read/ 
write timing (see Figure 4.4). 

4.2 SLIPP Interface Unit 

4.2.1 Introduction . The SLIPP unit was designed to interface the 
Apple microcomputer to the transmitting and receiving sections of the lidar 
system. The unit consists of a digital circuit and its required power 
supplies all mounted in a 5 1/2" x 9" x 12" box. The circuit is constructed 
on a Vector 3682-2 6.5" long card which plugs into an jdge connector inside 
the box. Two extra edge connectors are also available in the box. Mounted 
on the back panel of the box are the following connectors: 1) a 34-pin 

ribbon cable connector for linking the Apple DMA circuit to the SLIPP unit, 
2) four isolated BNC connectors labeled LCP, NIM, TRIG and AUX OUT. LCP is 
the Laser Command Pulse input (+5 V pulse), NIM is the photon pulse input 
from the discriminator (NIM standard: - 18 mA (-1 V), 12 nset ), TRIG is 
the laser trigger output (+5 V, 1 psec pulse), and AUX OUT is an auxiliary 
pulse output (*5 V, 1 psec pulse). 

Appendix I contains the pinouts for the SLIPP circuit board and the 
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external ribbon cable. The location of the components on the circuit board 
is shown in Appendix II. Photographs of the SLIPP unit are shown in Figure 
4.5. Figure 4.6 is the wiring schematic for the circuit. 

4.2.2 Clock circuitry . The SLIPP clock circuitry is shown in the 
lower lefthand corner of Figure 4.6. The clock circuitry performs two 
functions: 1) inhibits the rest of the SLIPP photon counting circuitry 
until the Laser Command Pulse (LCP) ie received; and 2) after receiving the 
LCP, provides the timing signals that drive the counting circuitry. 

Two 74H74 positive-edge-triggered flip-flops are used to provide the 
enabling signals for the system. The first flip-flop (Ul2a) must be clocked 
by the user. This action enables the second flip-flop (U12b) which is then 
used to detect the LCP and provide the General Enable (GEN ENB) signal to 
the rest of the circuit. The first flip-flop is needed to ensure that the 
SLIPP system will not accidentally be enabled by a spurious LCP before the 
actual data run is to take place. Normally, the clocking of the first flip- 
flop is done by the pulse sent to trigger the laser (Control Signal from 

the Apple DMA card). However, the Data Acquisition Enable Jumper, shown 
near the lower-center section of Figure 4.6, can be changed 60 that the user 
can clock the first flip-flop at his discretion (using Control Signal Y3 
from the Apple DMA card). 

The master timing signal is supplied by a free-running 20 MHz 
oscillator. The 20 MHz signal is input into a 74162 decade counter (U23) 
divides the signal down to 2 MHz. However, the decade counter must be 
enabled by the GEN ENB signal before outputting the 2 MHz signal. In this 
way, no timing signals are supplied to the rest of the counting circuitry 
until the LCP has been received. The decade counter allows only up to 50 
nsec skew time between the LCP and the beginning of the first 2 MHz clock 


cycle. 
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Figure 4.5 Photographs of the SLIPP unit: (a) fron: panel, (b) back panel 

and (c) top view of the open cabinet. 
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After the decade counter ie enabled, two 74LS109 poaitive-edge-triggered 
flip-flops (U22a and U22b) are used to divide the 2 MHz signal down to 
1 MHz and 0.5 MHz. The inverted signals 2 MHz, 1 MHz, and 0.5 MHz are also 
generated by the circuitry. The 0.5 MHz and 0.5 MHz signals are labeled 
ENB 1 and ENB 2, respectively. These signals are used to select the 
toggling photon counters discussed in Section A. 2. 3. Two 74S08 NAND gates 
(U21c and U21d) are used to hold both ENBl and ENB 2 LOW while the GEN ENB 
signal is inactive (LOW). 

Figure 4.7 shows the timing relations for various clock circuitry 
signals immediately following a laser shot. The times noted on the diagram 
were calculated using typical propagation delay values for the particular 
chips involved. 

4.2.3 Counting circuitry . The counting circuitry is shown in the 
upper left-hand corner of Figure 4.6. The circuitry takes the NIM standard 
pulses from the lidar system discriminator and counts them in consecutive 1 
usee intervals. 

The counters used in the circuitry are TTL binary counters so it is 
c’cessary to shift the NIM pulses to TTL levels. This is done in two 
stages. First, a 2N3 6 46 transistor configured as an emitter-follower shifts 
the NIM pulses to emitter-coupled logic levels 'ECL: -0.9V « "0", -1.7 V ■ 

"1"). A Motorola MC10125 ECL to TTL converter chip (U6) is then used to 
obtain positive TTL pulses. A NIM/ECL select jumper has been provided in 
the circuit for possible future upgrade to ECL li inputs. 

Two 8-bit counters in a toggling configuration are used in the circuit 
to obtain the photon counts. At any given 1 psec interval during a data 
run, one counter is counting pulses while the contents of the other counter, 



Figure 4.7 SLIPP unit clock circuitry enable timing. 
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obtained during the previous interval, are being placed in Apple memory. 

Each counter is composed of two cascaded 74S197 4-bit binary counters 
(counter #1 : chips U18, U17; counter #2: chips U16, U15). 

The positive TTL photon pulses are input to the counters through two 
74S00 NAND gates (Ullb and Ullc). These gates use the ENB 1 and ENB 2 
signals from the clock circuitry to section the pulses into 1 usee intervals 
and select the counter to receive the pulses. The gates also invert the 
photon pulses for input to the 74S197 counters. 

During the inactive (non-counting) cycle of a counter, two actions are 
performed. First, the contents of the counter are stored; and second, the 
counter is cleared. Two 74LS257 quad multiplexer chips (Ul 3 , U14) select 
the counter output to be stored. The ENB 1 signal is used to drive the 
select input on the chips. The multiplexers can be thought of as operating 
180 degrees out of phape with the input NAND gates (Ullb, Ullc). The output 
of the multiplexers is clocked into the Apple interface circuitry described 
in the next section. The Qc (3rd bit) output of the decade counter in the 
clock circuitry (U23) is used to clear the counters. Two 3-input NAND gates 
(U20b, U20c) aud two AND gates (U21a, U21b) determine when and which counter 
to clear. 

The important timing signals for the counting circuitry are shown in 
Figure 4.8. The Data Load Clock (CK A) signal in the figure is described in 
the next section. 

4.2.4 Apple I nterfacing Logic . The logic interfacing the SLIPP unit 
and the Apple microcomputer allows the following functions to be performed: 
1) the resetting of the SLIPP circuitry, 2) the firing of the laser and the 
enabling of the SLIPP counting circuitry, and 3) the DMA data transfer from 
tne SLIPP unit to the Apple. The interfacing logic is generally shown in 
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the SLIPP unit to the Apple. The interfacing logic is generally shown in 
the right-hand side of Figure 4.6. 

Three different signals from the Apple DMA card will reset the SLIPP 
circuitry. The signals are the Reset signal (RES) which is connected to the 
Apple reset line, the Control Signal, and the DMA End (DEND) signal which 
comes at the end of a DMA transfer. The three signals are inpuL to a 
7 mLS 260 5-input NOR gate (UlOa) which is shown in the lower right-hand 
corner of Figure 4.6. The output of the NOR gate is used to reset the clock 
circuitry flip-flops discussed in Section 4.2.2, clear the counters discus- 
sed in Section 4.2.3, and reset the transfer request flip-flop which will be 
discussed further in this section. 

The Yl Control Signal from the Apple DMA card is normally used to 
trigger the laser. The Yl signal on the ribbon connector (C2) is input to 
a 74128 50-Ohm line driver (U5a) shown in the lower left-hand corner of 
Figure 4.6. The line driver output is connected to the TRIG BNC connector 
on the back panel of the SLIPP box. Control Signal Yl is also used to 
enable the clock circuitry flip-flops. A second line driver (U5b) is used 
to drive the Auxiliary Output (AUX OUT), and Control Signal Y2 is used to 
pulse the output. More details on the laser firing and the circuit enabling 
are discussed in Section 4.2.2 on the SLIPP clock circuitry. 

As mentioned in Section 4.1.2 on Apple Timing, the Apple and the SLIPP 
unit operate asynchronously. The SLIPP unit photon counters during a data 
run output data at a rate of 1.0 Mbytes/sec while the Apple DMA circuitry, 
operating at the Apple 4>0 clock rate, accepts data at a 1.023 Mbytes/sec 
rate. To transfer smoothly, the data bytes from the SLIPP unit to the Apple 
a First-In/First-Out buffer technique was used. The buffer circuitry is 
shown in the upper right-hand corner ci Figure 4.6 and is sectioned into the 
folTowing parts: the First-In/First-Out buffers, thj Load Clock (CK A), the 
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Unload Clock (CK IN), and the Transfer Request circuit. 

Two 74S225 16 x 5 asynchronous First-In/First-Out (FIFO) buffer chips 
(U7 and U8) are the heart of the buffer system. Data bytes from the SLIPP 
unit's counting circuitry are clocked into the FIFOs with the Load Clock (CK 
A) circuitry. The Unload Clock (CK IN) circuitry uses the Apple Clerk 
signals Q3 and $1 and the Apple DMA signal TxSTB to clock data out of the 
FIFOs to the Apple RAM. 

Because the Apple DMA circuit transfers data bytes faster than the 
SLIPP unit can supply them, the DMA circuit must be signaled periodically to 
wait during a data run. This is effected through the Transfer Request 
circuitry. The Transfer Request circuit uses the Outp.it Ready (OR) lines on 
the FIFOs. These lines are active (HIGH) whenever a valid byte is in the 
FIFO's output register. The OR lines from the two FIFOs are AND-ed together 
(Ulla and U19c) and the resulting signal is input to a 74LS74 positive-edge- 
triggered D-type a .'. i.p-flop (Ul). The flip-flop essentially tests the 
composite OR signal on the rising edge of the Apple $0 clock. If the OR 
signal is HIGH when tested, the transfer request to the Apple DMA circuit 
becomes (or remains) active. If the FIFOs output buffers are not ready when 
the OR signal is tested (OR signal LOW), the transfer request to the DMA 
circuit is withdrawn. This will halt the DMA process until the transfer 
request is restored (normally the next rising edge of $0). 

All lines connected to the 34-pin Apple-SLIPP ribbon cable are buffered 
with either inverting or non-inverting line drivers/receivers. The buffer 
chips consist of two 74LS240 octal inverting buffers (U3 and U4) and one 
74LS244 octal non-inverting buffer (U2). The 74LS244 three-state buffers 
are used to drive the data lines D0-D7 and are activated by the DMA signal 
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TxAkA during a DMA transfer. 

Figure 4.9 is a timing diagram for various SLIPP uric and Apple signals 
during the data collection for one laser shot. The signals in the upper 
half of the figure are SLIPP unit signals while Apple signals are shown in 
the lower half. The left-hand section of the diagram shows the beginning of 
the data collection. The middle section shows an instance where the Apple 
DMA transfer is suspended and the right-hand section shows the end of the 
data collection. 

One consequence of the interface logic design described above is that 
the number of range bins collected by the SLIP? unit is set by the 
programming of the MC6844 DMAC Byte Count -'egister on the Apple DMA card. 

If the Byte Count register is programmed for a transfer of N bytes, the 
SLIPP unit will collect N-l range bins. The minus one arises from the fact 
that during the last byte of the DMA transfer the SLIPP unit FIFOs are being 
reset. 

4.2.5 Power supplies . Two power supplies mounted in the SLIPP box 
supply +5 V and -5 V to the SLIPP circuits (Figure 4.10). A Power One C5 - 
6 Amp supply provides +5 V and a Power One HA5 - 1.2 Amp supply is connected 
as a -5 V supply. The DC ground on the supplies is referenced to the Apple 
logic ground through the SLIPP-Apple ribbon cable. The AC input to the 
supplies is fusea at 1.5 A and a switch located on the back panel of the 
SLIPP box turns on the supplies. 
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5. SOFTWARE DESCRIPTION 


5.1 Introduction 

Three software routines were written for use with the preprocessing 
system. Two of the routines are run during data collection. They are 
SLPAPP.OBJ which drives the Apple in the preprocessing system and FZZ.SAV 
which drives the LSI-11. The third routine CONVRT.SAV is run on the LSI-11 
after data collection is complete. CONVRT.SAV takes the binary data files 
created on a floppy disk during data collection and converts them to ASCII 
files. This is a necessary step before transferring the data files to the 
University of Illinois CYBER computer for further processing. The Apple 
program was written in 6502 machine language with the Apple 6502 Assembler/ 
Editor on the ^pple Tool Kit disk. The LSI-11 programs contain both Fortran 
and Macro-11 subroutines written under the RT-11 Version 4 operating system. 

A general discussion of the data collection software is contained in 
Section 5.2. The routines used by the Apple and the LSI-11 for communi- 
cations between each other are an integral part of the collection software. 
The communication routines for both computers are quite similar and are 
presented in Section 5.3. Section 5.4 contains notes on some of the options 
available ia the collection software. Section 5.5 is a discussion of the 
data file conversion software. All the program listings are presented in 
Appendix III. 

5.2 Data Collection Software 

5.2.1 Apple routines . The file SLPAPP.CBJ, containing the Apple 
data collection software, is sectioned into five parts which are labeled: 
the Main Program Loop, the Apple Receiver, the Apple Sender, Data Run, and 
Printing Routines. The Apple Receiver and Sender sections handle the Apple 
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side of the Apple-LSI-11 communications. These routines are discussed in 
Section 5.3 on Apple and LSI-11 communications. The Printing Routines are a 
set of subroutines which display messages on the Apple monitor. Details of 
the Main Program Loop id the Data Run sections are discussed below. 

Part (a) of Figure 5.1 snows a flowchart of the Main Program Loop 
section. When the file SLPAPP.OBJ is run, execution begins at this section. 
First, a keyboard input routine is loaded. This allows keystrokes on the 
keyboard to be accepted by the Apple. Next, a heading is displayed on the 
monitor and the program waits for a keypress before continuing. After the 
keypress the CCS serial card (for communication with the LSI-11) and the 
interrupt and byte input vectors (INTV and STATE) are initialized for use 
with the Apple receiving code. Finally, the interrupt disable bit is 
cleared, the message "IDLE" is displayed on the monitor, and the routine 
begins the idle wait loop. Presently, the idle loop is a simple waiting 
loop but in the future the loop can be replaced with a background routine 
such as a laser tuning algorithm. 

The Data Run section of the program is actually a subroutine labeled 
DATRUN which i6 called by the Apple Receiver routine after receiving the 
"data run" frame. A flowchart of DATRUN is shown in part (b) of Figure 5.1. 
Before DATRUN is called the two variables REPNUM and MSHOTS must be loaded. 
REPNUh is used by DATRUN to set the laser pulse repetition rate while the 
desired number of laser snots per profile i6 contained in MSHOTS. The 
values to be loaded into the two variables are sent from the LSI-11 to the 
Apple within a "commands" communication frame. 

Once called, DATRUN begins by displaying the meseage "TAKING DATA" on 
the Apple monitor. Next, the laser shot counter TSFOT is loaded with the 
value contained in MSHOTS and the MC6844 DMAC registers are loaded. The 
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mainframe memory (the block of memory used to store the profile integration 
sum) is also initialized. 

After the initializations the profile collection begins. The laser and 
the SLIPP unit are triggered by accessing the trigger address (Control 
Signal Yl). The routine execution is suspended during the range bin col- 
lection and DMA transfer. When the exe ration resumes, a status bit in the 
MC6844 DMAC on the Apple DMA card is tested. If the bit is not 6et the DMA 
transfer never occurred and control jumpB to an error rc ,ne. With the bit 
set, the Apple integrates (adds) the new range bin counts into the profile 
integration sum in the mainframe memory. The 16-bit addition routine used 
causes the high order and low order bytes of the 16-bit data words to be 
stored in separate blocks of memory. This algorithm was selected because of 
its fast execution time. After the integrations, the shot counter TSHOT is 
decremented and tested for a zero value. If more laser shots are required 
for the profile, the routine executes a delay loop and then returns to fire 
the next laser shot. 

The delay loop is required in order to regulate the laser pulse repe- 
tition rate. The value stored in the variable REPNUM is used to set the 
length of the delay. An equation taking into account the number of Apple 
machine language instructions between successive laser shots, the desired 
pulse repetition rate, nd the struct ire of the delay loop code is used by 
the Lai-11 to solve for the value to be stored in REPNUM. REPNUM is a one- 
byte location so values ranging from 0 to 255 can be assigned to it. As 
mentioned previously, the REPNUM value is sent from the LSI-11 to the Apple 
within a "commands" frane. 

After the data collection and integration are completed for the last 
laser shot of a profile, the data are sent to the LSI-11 computer within a 
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"data" commixii cation frame, before sending the "data" frame, the input 
byte vector STATE must be reset to point to the beginning of the receiving 
code. This allows the "acknowledge" communication frame sent by the LSI-11 , 
verifying the successful receipt of the data, to be properly interpreted.) 
Finally, the "IDLE" message is displayed and a return from interrupt is 
executed to reenter the idle wait loop in the Main Program Loop. 

5.2.2 LSI-11 routines . The LSI-11 data collection software is 
comprised of twelve Fortran and Macro-11 files which are compiled and linked 
into one executable file labeled FZZ.SAV. The twelve files are: FZZ.FOR, 

EXPPAR . FOR, CSTTUS.FOR, LAALN . FOR, ALNRTN . FOR , DATRUN.FOR, EXMPRF. FOR, 
DISCAL.FOR, ROVER. MAC, SENDER. MAC, DISPLY.MAC, and H DUMP. MAC. In order to 
decrease file manipulation problems, all the compiled versions of the files 
(except for FZZ.OBJ) were placed in the library file SLPLIB.OBJ. Figure 5.2 
shows a general flowchart for the collection program FZZ.SAV. Descriptions 
of each of the twelve files in the collection program are presented below. 

FZZ is the main progran file. All variables and constants for the 
collection software are initialized by this file. FZZ also initializes the 
serial port for Apple-LSI-11 communications by calling the subroutine INITR 
(INITR is contained in the file RCVER). The LSI-11 Job Status Word is set 
for "no terminal wait state." This allows the use of the Fortran input 
function ITTINR in the following marner: A character is transferred from 

the console terminal to the user's progran if a character is present; but 
program execution continues whether a character is present or not (see 
Section 5.4 for *he use of this opti nrj. After the initializations, FZZ 
displays the main collection software menu. Selection of one of the seven 
available options in the menu results in a call to a particular subroutine. 
The first six options (1-6) call the subroutines EXPPAR, CSTTUS, LAALN, 
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ALNRTN, DATRUN, and EXMPRF, respectively. Option 7 is not actually 
displayed in the menu but it is a viable option. Selecting option 7 results 
in a call to the subroutine KOUT which is contained in the file ROVER. 

EXPPAR displays the experiment parameters and allows them to be changed 
by the operator. The parameters are used by the two routines which obtain 
sodium data: ALNRTN and DATRUN. A brief description of each of the para- 
meters follows: 

#Sets - number of data sets of profiles to be collected before return- 
ing to the main menu. (Presently, this is a dummy variable and is 
not utilized by the software.) 

(^Profiles Per Set - number of profiles to be placed in a data set. 

#Laser Shots Per Profile - number of laser shots per profile. 

Inter-Profile Delay - extra delay time desired between the collection 
of successive profiles (seconds). 

Elevation Angle - angle between horizontal ind receiving telescope 
line-of-sight (degrees). 

base Altitude - altitude of the lidar system in reference to the 
earth's surface (feet and kilometers). 

Altitude Range of Data - altitude range of sodium data to be stored 
on a floppy disk (kilometers). 

Range Bins - the set of range bins to be stored on a floppy disk. 

The Elevation Angle, Base Altitude, Altitude Range of Data, and Range Bins 
parameters are all related through a set of range equations, and changing 
one of the parameters results in a recalculation of the others (see tl ^ 
EXPPAR listing in Appendix III. 3 for details). 

CSTTUS displays a table of values that reflect the current status of 
the experiment. Included in the table are: the current profile and set 


numbars (the numbers by which the next profile collected will be identified), 
the desired number of laser shots per profile, and the aodium values as 
calculate by the subroutine DISCAL for the last recorded profile. CSTTUS 
also allows the operator to change the current profile and set numbers. 

LAALN directs a low-altitude data collection run for lidar system 
alignment purposes. After being called, the first action of LAALN is to 
allow the operator to select the laser repetition rate and the number of 
laser shots needed for each low-altitude profile. Next, the subroutine 
requests the collection of one profile and then displays the completed 
profile range bin counts for bins 1 through 600 (corresponding to a range of 
0 to 90 km). 

The steps followed by LAALN to obtain the profile are similar to those 
described in the paragraph on DATRUN, except it is important to note that 
the profile is not permanently saved on a floppy disn. After the counts are 
displayed the operator is prompted for a decision on whether to run the 
routine again or to return to the main menu. The low-altitude counts 
observed with the help of this routine are in general due to Rayleigh scat- 
tering. By using the routine in an iterative fashion th^ critical alignment 
of the laser beam and the receiving telescope f ield-of-view can be accom- 
plished. 

ALNRTN directs a sodium data collection run for lidar systen . lignment 
purposes. ALNRTN has exactly the same format as LAALN, the low-altitude 
alignment routine, except that each profile collected is examined for sodium 
returns. ALNRTN calls the subroutine DIECAL to provide a summary of the 
sodium counts. Also, ALNRTN uses the two experiment parameters Base 
Altitude and Elevation Angle as set in the subroutine EXPPAR. The two 
parameters are necessary for the selection of the range bins that should 


contain sodium counts (see the paragraph on DISCAL). ALNRTN is helpful when 
making final laser tuning and laser-telescope alignment adjustments. 

DATRUN directs the collection of a set of profiles with the details of 
the collection process set by the experiment parameters of the subroutine 
EXPPAR. Initially, DATRUN displays the storage space (blocks) needed on the 
floppy disk to save the forthcoming 3et of profiles. Also displayed is the 
record length (double words) of each profile in the set. These values are 
provided to help keep track of the space remaining on the data floppy disk. 
Along with the block length and record size values, the operator is 
prompted to start the data run. Once the run begins, DATRUN updates the 
file name to be used on the data 'loppy disk for identifying the forthcoming 
set ot profiles. Also, the range parameters required by DISCAL for the 
sodium count summary are calculated. Values for the two variables REPNUM 
and MSHOTS are also determined. These variables are required by the Apple 
data collection software and arc sent from the LSI-11 to the Apple within a 
"commands" communication frame. A "data run" frane sent from the LSI-11 to 
the Apple requests the collection of a profile. Tne setting of the flag 
DFLAG alerts the routine that the profile data has been collected and 
received successfully by tne LSI-11. An error in the transmission of the 
profile data from the Apple to the LSI-11 results in the setting of the flag 
ERRFLG, and program control is returned to the main software collection 
menu. DATRUN calls the subroutine DISCAL to provide a summary of the sodium 
counts and the profile is saved on the data floppy disk. If more profiles 
are required to complete a set, the profile number is updated and collection 
begins again. A few details of the subroutine DATRUN are also discussed in 
Section 5.4 on Software Collection Options. 

EXMPRF allows the operator to examine the range bin counts of profiles 


that have previously been collected and stored on a floppy disk. EXMPRF 
prompts the operator to enter the set and profile numbers of the profile to 
be examined. The subroutine expects the requested data to be on a floppy 
disk in the disk drive designated as the data storage drive (see Section 
5.4). The range bin counts are displayed on the console terminal and a 
printout of the counts can be obtained by responding to the prompt at the 
end of the terminal display. 

DISCAL is called by the routines ALNRTN and DATRUN to provide the 
operator with a summary on the console terminal of the sodium counts in a 
profile. DISCAL also provides a printout of the sodium count summary for 
the routine DATRUN. The flag RUNFLG is used by DISCAL to determine whether 
ALNRTN or DATRUN is requesting its services. DISCAL expects the profile 
data to be recorded in the array LDATA and values for the following range 
parameters must be determined (by the calling routine) as they are necessary 
for the sodium count calculations: 

B30 - 30-km bin pointer. (The number of the range bin that corresponds 
to an altitude of 30 km.) 

B60 - 60-km bin pointer. 

S20 - the number of range bi is required for a collection range of 20 
km. 

DISCAL also uses the experiment parameters accessed through the subroutine 
EXPPAR. slow are descriptions of the quantities of the sodium counts 
displayed by DISCAL: 

Detected PhoLons - the sum of the counts in the bins for the designated 
ranges (at 30 km, 60-80 km, 80-100 km, and 100-120 km). 

Total Signal Photons - the detected counts in the 80-100 range minus 
the counts in the 60-80 km range. 
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Signal Photons Per Shot - the Total Signal Photons divided by the laser 
shots per profile. 

Column Abundance Ratio - the Total Signal Photons divided by the 

difference of the counts in the 30-km bin and the average counts 
in a bin in the 60-80 km range. 

RCVER and SENDER handle the LSI-11 side of the Apple-LSI-11 serial 
communications and are discussed in detail in Section 5.3. The RCVER file 
al6o contains the subroutines INITR and MOUT. When called, INITR 
initializes the program counter and status word vectors for the serial port 
used for the Apple-LSI-11 communications. Also initialized is the input 
byte vector STATE (see Section 5.3.5). The subroutine MOUT, with the use of 
the file HDUMP, displays on the terminal in hexadecimal form the contents of 
the data array LDATA. 

The DISPLY file contains a set of subroutines which are called in order 
to enable display options available on the console terminal. The subrou- 
tines include: CLRSCN - clear screen, FORSCN - inverse or "highlighted" 

video, BAKSCN - normal video, and BELSCN - ring the bell. The DISPLY file 
listing presented in Appendix III. 12 show3 display subroutines designed for 
use with the DEC VT100 family of terminals. Howevor, the display 
subroutines can be used with other types of terminals (for example, the 
Hazeltine 1500) by changing the terminal command codes transmitted by the 
subroutines to those command codes recognized by the particular terminal ■ 

HDUMP displays a section of memory on the console terminal in hexa- 
decimal form. HDUMP must be given the starting memory address and the byte 
count of the section to be dumped. 

5.3 Data Collection Communication Routines 

5.3.1 Introduction . During a data collection run the Apple and l.he 


LSI-11 communicate with each other over an RS-232 standard asynchronous 
serial link at 9600 baud. Sequential streams of bytes, often referred to as 
"frames" or "packets," are used to encode the commands or data that are sent 
between computers. The particular Apple and LSI-11 frames are discussed in 
Section 5.3.3 on Protocol and Sections 5.3.4 and 5.3.5 on the sending and 
receiving program structures. 

The frame sending sections of the Apple and LSI-11 data collection 
programs are essentially a set of subroutines which send the desired 
messages. The receiving sections cf the collection programs are interrupt 
routines which receive and interpret the frames. Each byte received causes 
an interrupt which gives program control to the receiving section of code 
and the incoming byte is checked if it is a marker or saved if it is data. 
Once a complete frame is received, the receiving section of code must 
interpret the frame and carry out the appropriate action. This interrupt 
structure was developed so the computers could run background programs 
during "free" periods of time in the collection process. An example of a 
background program might be a laser tuning algorithm on the Apple which runs 
while the LSI-11 is busy storing and doing a printout on the current data 
profile. 

The serial communications link was selected over other type6 of links 
(for example, a parallel link; because it was realized that during experi- 
ments the Apple and the LSI-11 might be separated by a substantial distance 
(20-30 feet) and it was felt that the serial link would be less susceptible 
to noise problems. Many of the ideas used in the design of the communica- 
tions software are presented in the article "Build an Intercomputer Data 
Link," by Wingfield ( Byte . April 1981). 



5.3.2 Serial peripheral cards . Two interface card6 are used for 

the serial communications. A California Computer Systems (CCS) model 7710A 
asynchronous serial interface card is used in the Apple and a DEC DLVll-J 
four port asynchronous interface is used in the LSI-11. 

The CCS card is designed to be used in any of the Apple peripheral 
slots 1 through 7. The card has one channel and uses the Apple I/O 
addresses as shown in Table 5.1. A DB 25-pin female connector is provided 
on the card for serial input and output. Details on the use of the card are 
available in the CCS Model 7710A Owner's Manual . The preprocessing soft- 
ware presented in this report was written for the CCS card operating in 
Apple slot 2. 

The DEC DLVll-J interface card mounts into the LSI-11 computer back- 
plane. The DLVll-J has four channels with the register and vector addresses 
shown in Table 5.2. Each channel has a 10(2x5) pin connector for serial I/O 
purposes. The DLVll-J is described in detail in the DEC Microcomputer 
Interfaces Handbook [1980], In the lidar system the DLVll-J is not only 
used for the Apple-LSI-11 communications but also for the console terminal 
and the line printer input and output. The channel assignments for the 
lidar system are: 

Channel 0 = Apple-LSI-11 communications 

Channel 1 = open 

Channel 2 = line printer 

Channel 3 = console terminal 

Figure 5.3 shows the connections for the cable between the Apple CCS card 
ana the LSI-11 DLVll-J. 

5.3.3 Communication protocol . Computer protocols are the forms 

that are established as appropriate and acceptable in communication between 


TABLE 5.1 APPLE CCS SERIAL CARD I/O LOCATIONS 


ADDRESS (HEX) REGISTER 


COxO (Write) 
COxO (Read) 
COxl (Write) 
COxl (Read) 


COMMAND 

STATUS 

TRANSMIT DATA 
RECEIVE DATA 


TABLE 5.2 

LSI-11 DLVll-J 

SERIAL INTERFACE 

I/O LOCATIONS 

ADDRESS 

REGISTER 

VECTOR 

CHANNEL 

(OCTAL) 


ADDRESS 


176500 

RCSR 


0 

176502 

RBUF 

300 


176504 

XCSR 



176506 

XBUF 

304 


176510 

RCSR 


1 

176512 

RBUF 

310 


176514 

XCSR 



176516 

XBUF 

314 



176520 

RCSR 


2 

176522 

RBUF 

320 


176524 

XCSR 



176526 

XBUF 

324 



177560 

RCSR 


3 

177562 

RBUF 

60 

(Console 

177564 

XCSR 


Device ) 

177566 

XBUF 

64 



Apple CCS Cord 

(RS-232 Convention) 


LSI-1 1 DLVII-J 


(AA) GRND 

(BA) XMIT DATA 

(BB) RCV DATA 

(AB) SIG GRND 

(CA) RTS 

(CB) CTS 

(CC) DSR 

(CD) DTR 
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Figure 5.3 Apple CCS card and LSI-11 DLV11-J cable connections. 


computers. This section describes the protocol developed for the Apple-LSI- 
11 serial communication link. 

The commands or data sent between the Apple and the LSI-11 are encoded 
into sequential streams of bytes called "frames" or "packets." The frame 
format for this application has two parts: the header and the information 

section. The header part has a beginning-of-f rame marker, an operation 
code or opcode (which determines the use of the frame), an end-of-header 
marker, and a checksum. The information section has a beginning-of-section 
marker, the data, an end-of-frame marker, and a checksum. The checksums 
provide more reliable communications i" noisy environments. Figure 5.4 
shows the general frame format. 

The frame markers consist of two bytes. The first byte is the data- 
link escape (DLE) which alerts the receiver that the next byte should denote 
the start of frame (STX), the end of frame (ETX), or the start-of-frame 
information section (CTX). The values of the marker bytes in hexadecimal 
are: DLE = $90, STX = $83, ETX ° $82, and CTX = $81. To avoid incorrect 

interpretations of DLE ETX pairs that occur as data, any DLE byte in a data 
frame is transmitted twice. Upon seeing the DLE DLE pair in a data frame, 
the receiver saves one of the DLEs and discards the other. 

The opcode, following the DLE STX pair in the frame header, identifies 
the type of frame being transmitted. Five types cf frames are used between 
the Apple and the LSI-11: a commands frame, a data run frame, a data frane, 
a profile done frane, and an acknowledge frame. The commands and data run 
frames are only sent from the LSI-11 to the Apple. The commands frame 
(opcode COM ■ hexadecimal 32) contains information on the desired laser 
repetition rate and the number of shots per profile. The data run frame 
(DRUN ■ hexadecimal 31) signals the Apple to start collecting a data pro- 
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file. The data and profile done frames are sent one way from the Apple to 
the LSI-11. The data franes contain the profiles collected by the prepro- 
cessing system and the profile done frames (PRDONE ■ hexadecimal 33) signals 
the LSI-11 that the profile collection and transmission are completed. 

The data frame is unique in that it is of variable length with its 
maximum length set by a constant (PARLEY) in the Apple and LSI-11 software. 
The data frame opcode is also unique in that it is not a constant. This is 
because of the following two qualities: 1) Due to the method of storing the 
profile in the Apple RAM the low and high order bytes of the 16-bit profile 
words are sent in separate data frames; and 2) because of the long length of 
the high or low byte data frames (2000 bytes each), the data frame was 
designed to be able to transfer the data with multiple frames as opposed to 
one frame. The data frame encodes the two qualities given above by using 
the first hexadecimal digit of the opcode to differentiate the high and low 
byte frames and the second digit to number the frames (low byte frame ■ 
hexadecimal 50 - 5F, high byte frame = hexadecimal E0 - EF) . The data frame 
opcode allows the LSI-11 receiving code to assemble and order the 16-bit 
profile words correctly upon receipt of the data frames. 

After transmitting a command, data run, data, or profile done frame, 
the sender waits in a timeout loop for the receiver to respond with a. 
acknowledge frame (ACK = hexadecimal 34). If an error is detected in the 
transmitted frame (for example, a checksum error) no acknowledge is 
returned, the sender tin. t loop expires, and the frame is retransmitted. 
The sending software attempts to retransmit the frame a number of times (set 
by a constant, normally 2) before displaying a transmission error message on 
the terminal or monitor. 


The five types of frames are illustrated in Figure 5.5. Only the 
commands frame and the data frame use the frame information section. 

The checksum is the 16-bit summation of all the bytes in the frtme (or 
frame section) except for the first DLE and the final ETX bytes. The header 
checksum is used to verify the frame opcode and the information checksum is 
used to detect transmission errors in the data. The header checksum in the 
commands and data frames is retained to verify that the opcode of the frame 
is correct before overwriting the old data values in memory with the new 
data values. 

5.3.4 Send routine structure . The sending routines are a set of 
subroutines in the Apple and LSI-11 data collection software that are 
responsible for sending the communications frames to the receiving routine 
of the other computer. The Apple sending subroutines are contained in the 
Apple Sender program section and are labeled: SNDDAT - send data frame, 
SNDPRD - send profile Hone frame, and SNDACK - send acknowledge frame. The 
LSI-11 sending subroutines are contained in the Macro-11 file SENDER. MAC 
and are labeled: SNDCOM - send commands frame, SNDDTP - send data run 
frame, and SNDACK - send acknowledge frame. 

Apple subroutines SNDDAT and SNDPRD along with LSI-11 subroutines 
SNDCOM and SNDDTR not only output the frame bytes to the communications 
serial port, but also wait after transmission in a timeout loop for a 
returning acknowledge frame. If the timeout loop is completed before the 
acknowledge is received, the frame is retransmitted. An error index is 
decremented each time a retransmission is necessary, and an error message is 
displayed on the sender's console after two retransmissions fail (the total 
number of transmission attempts is set at 3 by the constant ERRCNT, although 
ERRCNT c-n easily be changed). After a frame transmission failure 
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(including the retransmission attempts), the operator has a choice of 
attempting the frame transmission again or exiting the sending routine. 

The choice is prompted by the questioi "Try again?" which is displayed on 
the sending computer console after the transmission error message. 

The flowchart of the LSI-11 subroutine SNDCOM in Figure 5.6 illustrates 
the general structure of all the sending subroutines. First, each routine 
loads its respective opcode into the transmit opcode variable (OPCDE). 

Next, the retransmission error count (ERRORS) and the acknowledge flag 
(ACKFLG ) are initialized. Finally, the frame bytes are sent to the 
communications serial port and the routine begins to execute the timeout 
wait loop. If an acknowledge frame is returned to the sending computer, 
during the wait loop, the receiving routine sets ACKFLG which drops the 
sending routine out of the timeout loop. 

Although the general program structure of each frame sending routine is 
similar, there are some structure differences due ‘.o the nature of the 
frames. For example, the SNDACK subroutines do not incorporate the timeout 
loop as they have no use for it. Also, the final task of the SNDCOM sub- 
routine is to call SNDDTR, as a commands frame will always be followed by a 
data run frame. 

Because of the multiple low byte and high byte data frames discussed in 
Section 5.3.3 on Protocol, the Apple subroutine SNDDAT has some complica- 
tions added to the general sending subroutine structure. A flowchart for 
SNDDAT is shown in Figure 5.7. SNDDAT actually uses the subroutine DATOUT 
to output the data frames. DATOUT is rail'd by SNDDAT, once to send the low 
byte data frames and once to send the high byte data frames. Three 
variables must be loaded before calling DATOUT: the base data frame opcode 

(hexadecimal 50 or E0) is loaded into DATOPC, ADDRES holds the starting 



Figure 5.6 Flowchart of LSI-11 subroutine SNDCOM 
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Figure 5.7 Flowchart of Apple subroutine SNDDAT 
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location of the block of bytes to be transferred and RYTES1 contains the 
transfer byte count. DATOUT uses the variuble values to break the blocks of 
data into multiple data frames. Tha constant PAKLEN sets the maximum number 
of data bytes in one frame. The DATOUT routine was designed so that 
changing the maximum packet length is simply a matter of changing PAKLEU and 
recompiling the Apple program. Section 5.4 on Data Collection Software 
Options contains a more detailed discussion on changing the maximum data 
frame length. 

In the data frames s data bytes that happen to have the same value as 
the DLE marker byte are double! to avoid a false end-of-frame marker. Upon 
receipt, the LSI-11 receiving routine saves cne of che DLE3 as data and 
discards t> e :her. 

5.3.5 Receive routine structure . Figures 5.8 and 5.9 show the 
receiving routine flowcharts for the Apple and LSI-11, respectively. These 
routines receive and decode the frames sent by the sending routine of the 
other computer. Both Apple and LSI-11 routines are interrupt service 
routines with differences between the routines arising from the receiving of 
different types of frames. The Apple routine ie contained in the Appl° 
Receiver program section and the LS routine is contained in the Macro-11 
file RCVER.MAC. 

Each incoming byte oi. the communication serial port (of either com- 
puter) causes an interrupt which results in the program control jumping to 
tne receiving routine. The incoming byte essentially enteis the receiving 
routine at one of the GET BYTE blocks shown in the f lovcharts , (The GET 
BYTE blocks actually represent the subroutine GTBYTE in the receiving code. 
When called, GTBYTE saves the return address in the variable STATE and 
executes a return from interrupt. The interrupt from the next incoming byte 
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results in the reentering of the receiving routine at the address stored in 
STATE and the incoming byte is processed by the correct portion of the 
receiving code. However, it is conceptually easier to think of the GET BYTE 
blocks as simply a wait followed by an incoming byte.) 

The initial portion of the receiving code checks for the DLE STX 
beginning-of-frame marker. If the bytes are not DLE STX, control returns to 
the beginning of the receiving code. 

After receiving the DLE STX pair, the next incoming byte is assumed to 
be the frame opcode ar-d is saved for interpretation after the header check- 
sum is received. 

Next, the DLE ETX pair and the two bytes of the header checksum are 
received. If the received checksum equals the calculated checksum, the 
routine interprets the frame opcode. If not, control returns to the 
beginning of the receiving code. 

In both the Apple and LSI-11 routines an ACK opcode causes the 
acknowledge flag ( ACKFLG ) to be set. In the Apple routine the COM opcode 
implies that the / '.ommaads frame information section will be transmitted 
next. The DRUN opcode implies a data run is being requested. 

In the LSI-11 routine the PRDONE opcode indicates a data profile has 
been transmitted successfully and the data flag DFLAG is set. The data 
frame opcode is the last to be checked for by the LSI-11 routine. The first 
hexadecimal digit of the data frame opcode designates the frame as high or 
low byte data, and the second hexadecimal digit is used to place the frame 
in the correct section of the array LDATA. The low order byte data are 
stored in the even byte address locations within LDATA and the high order 
byte data are stored in the odd byte address locations. This procedure 
results in the separately transmitted high and low bytes of the data profile 


being paired as 16-bit words in the array LDATA. 

The opcodes COMEND in the Apple receiving code and DATEND in the LSI-11 
code are dummy opcodes which are loaded into the opcode variable while the 
information section of a commands frame or a data frame is being received. 
The dummy opcodes are essentially flags which allow the checksum testing 
code (before the opcode identification) to be reused for the end of the 
information frame section. 

After a frame is successfully received and the appropriate action is 
taken, control returns to the beginning of the receiving code so that the 
next incoming frame may be interpreted correctly. 

5.4 Data Collection Software Options 

This section describes the real time interactive options available in 
the collection software that are not obvious to an inexperienced operator. 
Also mentioned in this section are some important program changes which 
allow the collection software to be adapted for use in various experiment 
situations. 

For the most part, all of the real time interaction between the main 
computer/preprocessing system and the lidar operator is accomplished through 
the LSI-11 console terminal. Occasionally, the Apple keyboard must be 
accessed to allow the preprocessing system to continue after a laser 
triggering error. With the collection software running, the LSI-11 console 
terminal should initially display the main collection menu (see Section 
5.2.2). Selecting one of the menu options results in a jump to a cor- 
responding subroutine, and in general, each option subroutine halts at some 
point to prompt the operator for an input of i.ome type. At this point, in 
menu options 1 through 5, typing a carriage return will result in a return 
to the main menu. Menu option 6, the profile data examine routine (EXMPRF), 
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initially asks for a set a. d profile number. Inputting the value zero (0) 
for either number will result in a return to the main menu. Menu option 7, 
the hexadecimal dump of the data array LDA7A, supplies no prompts and the 
array values are simply displayed on the terminal. After the display is 
completed a return to the main menu is automatically executed. 

The three data collection options in the main menu (options 3, 4, and 
5; routines LAALN, ALRTN, and DATRUN) all execute a waiting loop while the 
preprocessing system is collecting data. Normally, the loop is exited when 
the profile i6 successfully received by the LSI-11. However, the operator 
can force the routine to exit the waiting loop at any time by typing "s" and 
a carriage return. This option allows routine execution to be returned to 
the main collection menu when problems occur with the laser (or any other 
system hardware) while a data profile is being collected. This option is 
created through the use of the Fortran function ITTINR. 

The preprocessing system requires the use of two peripheral cards in 
the Apple computer peripheral slots: A CCS serial communications card and 

the preprocessor DMA card. The Apple collection software presented in 
Appendix III.l requires the CCS card to be mounted in slot 2 and the DMA 
card to be mounted in slot 4. However, these slot assignments can be 
changed by first altering the values of the constants CSR, DMAREG, and SLPIO 
in the program and then recompiling the program. CSR is the location of the 
CCS card status register, DMAREG is the beginning location for the DMA card 
progiammable registers, and SLPIO is the beginning location for the DMA card 
Control Signals (3ee Appendix III.l). 

Two floppy disk drives are required by the LSI-11 collection software 
to collect deta in an efficient manner. One drive contains the system 
floppy disk and the other drive contains the data floppy disk. The system 
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disk is generally issigned as the drive on which the computer is booted. 

The data drive is assigned in the main program file FZZ.FOR in the first 
four locations of the array variable FNAME. Presently the data disk is 
assigned as DYO : . 

As mentioned throughout Section 5.3 on Data Collection Communication 
Routines, the data frames sent from the Apple to the LSI-11 are of variable 
length with the maximum data byte count set by the constant PAKLEN. 

Changing the maximum data byte count is done by first setting the PAKLEN 
constant in both the Apple Sender program section and the LSI-11 RCVER 
section to the desired value and then recompiling the programs. Because of 
the error checking feature (checksum) of the frame communications technique, 
in a noisy environment many short data frames may provide more efficient 
transmission than a fewer number of long data frames. For this reason, a 
simple method of changing the maximum data byte count in a data frane was 
provided. 

5.5 Data Conversion Software 

During data collection, the collection software permanently stores sets 
of profiles on a floppy disk in unformatted direct access files. The data 
values in these files are represented in a binary format. After the col- 
lection is completed the data are transferred to the University of Illinois 
CYBER computer for further processing. However, the binary data file3 must 
be converted to files with an ASCII format before the transfer can occur. 
This is iue to hardware restrictions in the LSI-ll-CYBER link used to 
transfer the data. The routine CONVRT.SAV is used to accomplish the binary- 
to-ASCII file conversion. 

CONVRT initially requests the name of the device containing the binary 
files and the name of the device on which the converted files wil be 
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stored. Typical rebponses might be DYO: and DM1 : . Next, a set number is 
requested and also the total number of profiles in the set must be entered. 
CONVRT also requests the input of four values that are not recorded in the 
binary data files. These values are the ground speed (kts), altitude (ft), 
latitude (deg. -min.), and longitude (deg. -min.) at the time the profile was 
collected. These are values that were recorded manually during the air- 
borne experiment distuesed in Chapter 6; and CONVRT inserts them into the 
ASCII data files. 

The binary-to-ASCII conversion is accomplished with the use of the 
Fortran functions ENCODE and DECODE. The binary files designated by the 
name SETxxx.DAT are converted and saved in new files designated by the name 
SETxxx.ASC, where xxx is the set number. The listing of CONVRT in Appendix 
III. 14 shows the format of the ASCII data files. 
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6. PRELIMINARY RESULTS OF AN AIRBORNE EXPERIMENT 


6.1 Introduction 

In March 1983, the University of Illinois Aeronomy Laboratory (Lidar 
Group) conducted an airborne sodium lidar experiment aboard a National 
Aeronautics and Space Administration (NASA) aircraft. The primary goal of 
the experiment was to determine the feasibility of obtaining mesospheric 
sodium density measurements with an airborne lidar system. In reference to 
this report, the initial testing of the new sodium lidar preprocessing 
system with the complete lidar system was conducted during this airborne 
experiment . 

Initial sodium lidar measurements by the University of Illinois Lidar 
Group were made from ground-based stations [Richter and Sechrist, 1978; 
Shelton and Gardner, 1981]. Generally, these experiments provided infor- 
mation on the temporal structure of the mesospheric sodium layer as the 
layer drifted above the test site. In addition, the use of a steerable 
receiving telescope at NASA Goddard Space Flight Center provided limited 
observations of the horizontal structure of the layer. An airborne lidar 
system holds two distinct advantages over these ground-based systems. 

First, attenuation of the transmitted laser pulse due to low-altitude cloud 
cover and haze can be alleviated by f!ying above the obstructions. Second, 
the aircraft allows observations to be recorded over a long horizontal base 
line, an essential requirement for good horizontal structure measurements of 
the layer. This particular airborne experiment was designed as a forerunner 
to more extensive airborne sodium lidar observations. 

6.2 Airborne Sodium Lidar System 

The sodium lidar system was flown aboard the NASA Lockheed Electra 


L-188 turboprop aircraft (Figure 6.1). The aircraft is stationed at NASA 
Wallops Flight Center, WallopB Island, Virginia. The University of Illinois 
lidar equipment was used in conjunction with the NASA Electra Lidar 
Facility. This Lidar Facility consists of three standard optical table 
tops and a 16-inch, f/2.5 primary, receiving telescope all mounted on a 
table support structure. 

The telescope is mounted near the center of the support table in an 
upward pointing position. Two of the optical table tops are positioned on 
top of the support table on either side of the telescope. The third optical 
table top is mounted in the support structure underneath the larger upper 
table top. The support structure is bolted to the floor of the aircraft 
with the telescope positioned beneath a quartz window in the roof of the 
plane's cabin. 

The dye laser and transmitting optics for the lidar system were 
fastened to the larger upper table top of the Lidar Facility. The laser 
beam was steered through the quartz window, located directly over the tele- 
scope, with dielectric-coated optics. The receiving components, including 
the preprocessing system, were fastened to the smaller upper table top of 
the Lidar Facility. Power supplies and laser tuning equipment were mounted 
on the lower table top. Figure 6.2 shows the equipment configuration on 
the receiving side of the Lidar Facility. Figure 6.3 is a photograph of 
the equipment from the transmitting side of the Facility. The laser high- 
voltage power supply and chiller unit in Figure 6.3 were bolted to the floor 
of the aircraft. Also shown in Figure 6.3 are the nicrogen gas bottle, 
which provided nitrogen for purging the laser dye of oxygen, and the line 
printer used by the LSI-11 main computer. 
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Figuie 6.1 F'notograph of the NASA Electra alrc 
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igure 6.2 Photograph of the lidar receiving system equipment aboard the 
NASA Plectra. Un top of the table in the foreground from left 
to right are the implifier-discriminator, PMT housing, and the 
pr ; processor Apple microcomputer. 
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Figure 6.3 Photograph of tne lidar transmitting system equipment aboard 
the NASA Electra. In the foreground on the floor a^e the 
.laser high-voltage power supply arid chiller unit. On the 
table are the laser tuning monitor oscilloscopes. The laser 
head is located on the table behind the oscilloscopes. 
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Figure 6. A shove the computer rack. This rack was positioned across 
the aisle from the line printer. Mounted in the rack verc the LSI-11 
computer, disk drive, terminal, monitor . end the preprocessing system Apole 
monitor. 

6.3 Results 

The airborne lidar test was conducted on the night of March 30, 1983 
beginning at approximately 2130 SST. The flight originated at Wallops 
Flight Center (38 °N, 74 °W), reached a turn-around point near Albany, NY 
(42 °N, 73 °W), and terminated at Wallops at approximately 2330 EST. 

Although data collection began during the ascent, scattering of the laser 
bean by high cirrus clouds prevented collection of good sodium data until 
the aircraft reached an altitude above 25,000 feet. A similar collection 
problem occurred during the descent. Also, occasional cirrus above 30,000 
feet attenuated the received sodium signal photons at various points in the 
experiment . 

Plots of the spatial variations in eoti-cates of "he sodium density are 
shown in Figure 6.5. Figure 6.5(a) shows sediura density profiles collected 
on the outbound leg of the flight and Figure 6.5(b) shows profiles col- 
lected on the return leg. Each profile required 2,000 laser shots. The 
peak sodium concentration is seen to be located above 90 km which is con- 
sistent with previous measurements obtained during the month of March with 
the ground-based systems. The distribution of the sodium density around the 
peak is also consi e tent with previous ground-based observations. The pro- 
files seem to have some related structural features such the descending 
local peaks beneath the principal peaks in the three . -.lies on the righ* 
side of Figure 6.5(b). Another interesting feature, moat notable in c igure 
6.5(a), is a possible secondary layer appearing above 100 km. 
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Figure 6.4 Photograph of the computer rack aboard the NASA Electra. 

Mounted in the rack from top to bottom are the LSI-11 and 
Apple monitors, the LSI-11 power supply and computer back- 
plane, the LSI-11 keyboard, and the LSI-11 floppy disk 
drives. 
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Figure 6.5 Time and location history of the estimated altitude profiles 

of sodium density observed on (a) the outbound leg and (b) the 
return leg of the airborne experiment conducted on March 30, 
1983. A Hamming window lowpass filter with a cutoff of .35 km 
was used to spatially filter the profiles. 


7. CONCLUSIONS AND SUGGESTIONS FOR FUTURE WORK 


The preliminary results of the airborne sodium lidar experiment pre- 
sented in Chapter 6 indicate that the preprocessing system is functioning a6 
designed. The sodium layer profiles collected during the experiment contain 
features that are similar to those typically observed by sodium lidar 
systems. Noise in the data resulting from cloud cover and other factors 
makes it difficult to evaluate the performance of the preprocessing system 
in an absolute manner. However, no obvious contamination of the data 
directly attributable to the preprocessing system was noticed. 

Desirable future additions to the preprocessing and main computer 
systems would include the capability of further real-time processing of the 
data during collection. This might involve digitally filtering the data and 
displaying the filtered profiles on a graphics terminal. This type of 
immediate feedback would help in maintaining t-he lidar system at an optimal 
operation level. For example, drifting of the laser tuning would be clearly 
noticeable in the displayed profiles. Also, the displayed profiles would 
indicate the quality of the data and any interesting features of the pro- 
files. 

Because of the interrupt structure of the preprocessing system software, 
both the Apple and LSI-11 computers may be employed to run background 
routines in addition to the data collection routines. This provides the 
option of controlling any of the lidar system equipment with a computer. 
Examples would be computer-directed laser tuning and computer- control led 
alignment of the transmitted and received beams. 


APPENDIX I CARD AND CABLE PINOUTS 
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1.1 Apple Peripheral Card Connector Pinout 


PIN 

NAME 

FUNCTION 

1 

I/O SELECT 

MEMORY MAPPED SELECT LINE 

2 

A0 



3 

Al 



4 

A2 



5 

A3 



6 

A4 



7 

A5 



8 

A6 



9 

A7 


) ADDRESS BUS 

10 

A8 



11 

A9 



12 

A10 



13 

All 



14 

Al 2 



1 5 

Al 3 



16 

Al 4 



17 

A15 

J 


18 

R/W 

READ/WRITE 

19 

N.C. 



20 

I/O STROBE 

MEMORY MAPPED STROBE LINE 

21 

RDY 

6502 'READY' LINE 

22 

DMA 

DIRECT MEMORY ACCESS CONTROL LINE 

23 

INT OUT 

INTERRUPT DAISY CHAIN OUTPUT 

24 

DMA OUT 

DMA DAISY CHAIN OUTPUT 

25 

+ 5V 

+ 5 

i VOLTS 

26 

GND 

LOGICAL GROUND 

27 

DMA IN 

DMA DAISY CHAIN INPUT 

28 

INT IN 

INTERRUPT DAISY CHAIN INPUT 

29 

NMI 

NON MASKABLE INTERRUPT REQUEST 

30 

IRQ 

INTERRUPT REQUEST 

31 

RES 

RESET LINE 

32 

INH 

ROM INHIBIT LINE 

33 

-12V 

-12 VOLTS 

34 

-5V 

-5 

> VOLTS 

35 

N.C. 



36 

7M 

7 

MHZ CLOCK 

37 

03 

2 

MHZ (ASYMMETRIC) CLOCK 

38 

$1 

PHASE 1 CLOCK 

39 

USERl 

INTERNAL I/O ADDRESS DISABLE 

40 

4>0 

PHASE 0 CLOCK (ALSO<J>2) 

41 

DEVICE SELECT 

MEMORY MAPPED SELECT LINE 

42 

D7 



43 

D6 



44 

D5 



45 

D4 


> DATA BUS 

46 

D3 



47 

D2 



48 

Dl 



49 

DO 

> 


50 

+ 12V 

+12 VOLTS 
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1.2 Apple DMA Card Ribbon Connector Pinout 


PIN NAME 


FUNCTION 


1 GND 

2 

3 

4 

5 

6 

7 

8 
9 


10 

1 


11 

GND 

12 

7! 

i 

13 

Yl 

[ 

1.4 

RES 

15 

TxRQ 

16 

N. 

,c. 

17 

N, 

.c. 

18 

DEND 

19 

TxSTB 

20 

TxAKA 

21 

DGRNT 

;.2 

Y2 

23 

Y4 

24 

Q3 

25 

<J>0 

26 

4>1 

27 

DO 

28 

Dl 

29 

D2 

30 

D3 

31 

D4 

32 

D5 

33 

D6 

34 

D7 




> LOGIC GROUND 


J 

CONTROL LINE Y3 
CONTROL LINE Yl 
RESET LINE 

DMA TRANSFER REQUEST 


DMA END SIGNAL 

DMA TRANSFER STROBE 

DMA TRANSFER ACKNOWLEDGE 

DMA BUS GRANT 

CONTROL LINE Y2 
CONTROL LINE Y4 
INVERTED APPLE Q3 CLOCK 
APPLE 4>G CLOCK 
APPLE <J>1 CLOCK 
■\ 


S DATA LINES 


I 

* 
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1.3 SLIPP Unit External Ribbon Connector Pinout 


PIN NAME 


FUNCTION 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 


PEND 

TxSTB 

TxAKA 

PgRNT 

Y2 

Y4 

03 

<J>0 

4>1 

DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7 

GND 


DMA END SIGNAL 

DMA TRANSFER STROBE 

DMA TRANSFER ACKNOWLEDGE 

DMA BUS GRANT 

CONTROL LINE Y2 
CONTROL LINE Y4 
INVERTED APPLE Q3 CLOCK 
APPLE <t0 CLOCK 
APPLE <tl CLOCK 


) DATA LINES 




> LOGIC GROUND 


1 

GND 

J 



Y3 

CONTROL LINE 

Y3 

Yl 

CONTROL LINE 

Yl 

RES 

RESET LINE 


TxRQ 

DMA TRANSFER 

REQUEST 

N.C. 




N.C. 
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1.4 SLIPP U.^it Internal Card Edge Connector Pinout 


4 

5 
5 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
1 8 

19 

20 
21 
22 


GND 

D 

Y 1 
RES 
TxRQ 
N.C. 

N . C . 

AUX OUT 
TRIG 
LCP 
NIM 


PIN 

NAME 

FUNCTION 

A 

+5V 

+ 5 

VOLTS 

B 

D7 



C 

D6 



D 

D5 



E 

D4 


> DATA LINES 

F 

D3 


H 

D2 



J 

D1 



K 

DO 

> 


L 

$1 

APPLE 4>1 CLOCK 

M 

4>o 

APPLE 4>0 CLOCK 

N 

Q3 

INVERTED APPLE Q3 CLOCK 

P 

Y4 

CONTROL LINE 73 

R 

Y2 

CONTROL LINE Y2 

S 

DGRNT 

DMA BUS GRANT 

T 

TxAKA 

DMA TRANSFER ACKNOWLEDGE 

U 

TxSTB 

DMA TRANSFER STROBE 

V 

DEND 

DMA END SIGNAL 

W 

N.C. 



X 

N.C. 



Y 

N.C. 



Z 

GND 

LOGIC GROUND 

1 

-5V 

-5 

i VOLTS 

2 

GND 

>1 



l 




S-LOGIC GROUND 


CONTROL LINE Y3 
CONTROL LINE Yl 
RESET LINE 

DMA TRANSFER REQUEST 


AUXILIARY OUTPUT 
LASER TRIGGER OUPUT 
LASER COMMAND PULSE INPUT 
FAST NIM DISCRIMINATOR INPUT 
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APPENDIX III SOFTWARE LISTINGS 


III.l SLPAPP 

eource file: slpapp 


NEXT 

OBJECT FILE NAHE IS 

SLPAPP. OBJ 


0C2&: 

1 


ORG 

40C28 


0C28: 

2 


0C28J 

3 

4 




0C28: 

4 

* 

APPLE 


0C28: 

5 

4 

SLIPP 

SOFTUARE 


oc 2 e: 

6 

4 

D 

< VOELZ 


0C28: 

7 

» 

FEB. 

20 » 1983 


0C28: 

8 

4 




0C28: 

9 

444444444444444444444444444444444 

0C28: 

10 

4 




0C28: 

11 

4 I/O 

LOCATIONS 


OC28: 

12 

4 




coao : 

13 

CSR 

EOU 

4C0A0 

.SERIAL CARD IN SLOT 2 

coai : 

14 

XRDR 

EQU 

CSR + 1 


OL2&; 

15 

4 




C40o: 

16 

DMAREG 

EQU 

4C400 

.DMA BOARD IN SLOT A 

coco: 

17 

SLPIO 

EQU 

4C0C0 


coci: 

18 

TRIG 

EQU 

SLFTO+1 


Coe*: 

19 

SLPRST 

EQU 

SLF’IO + 4 


0C28S 

20 

4 




0C28 : 

21 

4 GENERAL PARAMETERS 


oc:b: 

22 

4 




0003 : 

23 

ERRCNT 

EQU 

3 

(ERROR COUNT 

0032 : 

24 

DELI 

EQU 

50 

.DELAY PAR. 1 

0031 : 

25 

DRUN 

EQU 

131 

.OPCODES -DATA RUN 

0032 ; 

26 

COM 

EQU 

132 

i -COMMANDS 

0033 : 

27 

PRDONE 

EQU 

433 

} -PROFILE PONE 

003 V. 

28 

ACK 

EQU 

434 

F -ACKNOWLEDGE 

0C45J 

29 

COMEND 

EQU 

445 

( -COMMANDS DONE 

0061 : 

30 

CTX 

EQU 

481 

» 'CTX' CHAR 

0082 : 

31 

ETX 

EQU 

482 

F 'ETX' CHAR 

0083: 

32 

STX 

EQU 

483 

» 'STX' CHAR 

oo?o : 

33 

DLE 

EQU 

490 

F 'DLE' CHAR 

03FEJ 

34 

INTO 

EQU 

403FE 

» INTERRUPT VECTOR 

FCA8 5 

35 

WAIT 

EQU 

4FCAB 

.DELAY ROUTINE 

FF3FJ 

36 

I OREST 

EQU 

4FF3F 

.RESTORE REGISTERS 

FF4A S 

37 

IOSAVE 

EQU 

4FF4A 

F SAVE REGISTERS 

0C28: 

38 

4 




0C28 : 

39 

4 DATA PACKET PARAMETERS 

oc2b: 

40 

4 




0050 : 

41 

OF'CLO 

EQU 

450 

FLO BYTE DATA OPCODE 

ooeo: 

42 

OF’CHI 

EQU 

4E0 

.HI BYTE DATA OPCODE 

6000 : 

43 

BUFADB 

EQU 

46000 

F INPUT BUFFER MEMORY 

9000 : 

44 

STADDL 

EQU 

49000 

FLO BYTE MAINFRAME MEMORY 

9B00I 

45 

STALDH 

EQU 

STADDL + 48Q0 t HI PYTE MAINFRAME MEMORY 
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C7DUJ 

46 

PAKLEn 

EQU 

2000 

♦PACKET LENGTH (MAX=32767) 

G7D0J 

47 

BYTCNT 

EUU 

2000 

♦BYTE COUNT 

0C28 : 

48 

* 




0C2B: 

49 

* MONITOR REFERENCES 


0C28 ! 

50 

* 




0024 : 

51 

CH 

EQU 

>24 

♦HORIZONTAL TAB LOCATION 

0025J 

52 

CV 

EQU 

♦ 25 

♦VERTICAL TAB LOCATION 

0036: 

53 

NSW 

EQU 

$38 

♦KEYBOARD SWITCH 

008D: 

54 

CR 

EQU 

>8D 

♦CARRIAGE RETURN 

coio: 

55 

KBDSTB 

EQU 

$C010 

♦KEYBOARD STROBE 

fcsp: 

56 

HOME 

EQU 

$FC58 

♦CLEAR SCREEN 

FC22! 

57 

VTAB 

EQU 

♦ FC22 

♦VERTICAL TAB 

fdoc: 

58 

RDKEY 

EQU 

♦ FDOC 

♦READ KEY ROUTINE 

fdib: 

59 

KEYIN 

EQU 

♦ FD1B 

♦KEY INPUT ROUTINE 

fdfo: 

60 

COU'l 1 

EQU 

♦ FDFO 

♦OUTPUT CHARACTER 

FE80 i 

61 

SETiNV 

EQU 

>FE80 

♦INVERSE SCREEN 

FE84 i 

62 

SETNRN 

EQU 

♦ FE84 

♦NORMAL SCREEN 

O 

n 

K* 

00 

63 

4 




ocra: 

64 

* ZERO 

PAGE 

VARIABLES 


0C2B : 

65 

» 




oooo : 

66 


DSECT 


00F9 : 

67 


ORG 

$F9 


oof 9 : 

68 

a mires 

DS 

2 

♦TRANSMIT ADDRESS VECTOR 

oofb: 

69 

BtTESI 

US 

2 

♦TRANSMIT BYTE COUNTER 

oofd: 

70 

PRTADD 

DF 

2 

•PRINTING ADDRESS VECTOR 

ooff: 

71 

TLBTCT 

OS 

1 

♦TEMPORARY TRANSMIT BYTE COUNTER 

0C28; 

72 


DEND 



0C28: 

73 

* 




0C28 : 

74 

* GENERAL VARIABLES 


0C28 i 

75 

* 




oooo: 

76 


DSECT 


ocoo: 

77 


ORG 

$0C00 


ocoo: 

78 

REF'NUM 

DS 

1 

♦LASER REP NUMBER 

OCOli 

79 

MSHOTS 

DS 

2 

♦ SHOTS/F'ROFILE <MAX = 32767) 

oco3: 

80 

* 




oco3: 

81 

ACKFLG 

DS 

4 

A 

♦ACKNOWLEDGE FLAG 

oco4: 

82 

DATOPC 

DS 

1 

♦TRANSMIT OPCODE STORAGE 

ocos: 

83 

ERRORS 

DS 

1 

♦ERROR COUNTER 

ocoa: 

84 

LSTFLC 

DS 

1 

♦LAST PAGE TRANSMIT FLAG 

oco7: 

85 

OPCIiE 

DS 

1 

♦RECVD OPCODE STORAGE 

ocos : 

86 

* 




ocos: 

87 

C0UNT1 

DS 

2 

♦TEMP. TRANSMIT BYTE COUNTER 

ocoa: 

88 

RCSUM 

DS 

4 

♦RECVD CHECKSUM 

ococ: 

89 

SAOAMi 

DS 

2 

♦PLACE TO SAVE ADDRESS 

ocoe: 

90 

SAOSUM 

DS 

2 

♦PLACE TO SAVE CHECKSUM 

ocio: 

91 

STATE 

DS 

2 

♦INPUT BYTE VECTOR 

oc\ 2 : 

92 

TSHOr 

DS 

2 

♦SHOT COUNTER 

oci4: 

93 

XCSUrt 

DS 

2 

♦TRANSMIT CHECKSUM 

oc 2 c: 

94 


DEND 



0C28 : 

95 

* 




0C2B: 

96 


0C28 : 

97 

* 




0C28*. 

98 

* MAIN 

PROGRAM LOOP 


0C28 : 

99 

* 




0C28 : 

100 

immmimiimtimttmuti 

0C28 : 

101 

4 
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100 


ocjb: 



102 

* INITIALIZE 

RECEIVER 


oc2e; 



103 





QC2B! A9 

IB 


104 


LDA 

*>KEY IN 

» LOAD KEYBOARD SWITCH 

0C2A! 85 

38 


103 


STA 

KSU 


0C2CJA9 

FB 


106 


LOA 

*<KEYIN 


0C2ES8S 

39 


107 


STA 

KSU+1 


oc3o: 



108 

* 




or;3c:2C 

10 

CO 

109 


BIT 

KBDSTB 

» CLEAR KEYBOARD STROBE 

0C33*. 



110 

% 




0C33I20 

6C 

10 

in 


JSR 

HEDPRT 

! F R I N T HEADING 

0C36 : 



112 

1 




OC365A9 

03 


113 


LBA 

*03 

1HASTLR RESET ACIA 

0C3B58D 

Au 

CO 

114 


STA 

CSR 


0C3b:A9 

95 


115 


LDA 

**95 

{ SET UP ACIA 

0C3DI8D 

AO 

CO 

116 


STA 

CSR 


0C405 



117 

* 




0C40!A9 

SE 


118 


LDA 

• > 1 0 1 N T 

* SET INTERRUPT VECTOR 

0 C 4 2 : 8 D 

FE 

03 

119 


STA 

INTV 

{ FOR IOINT 

0C455A9 

oc 


120 


LDA 

*<IOINT 


0C47S8D 

FF 

03 

121 


STA 

INTV+1 


0C4a; 



122 

* 




oc-ia:a9 

BC 


123 


LDA 

*>STPnKl 

{SET INPUT BYTE VECTOR 

0 C 4 C 8 D 

10 

OC 

124 


STA 

STATE 


0C4FIA9 

01. 


125 


LDA 

KSTF’AKl 


0C5 1 : 8D 

11 

OC 

126 


STA 

STATEF1 


0C54! 



127 

* 




0C54 !58 



128 


CLI 


{CLEAR INTERRUPT BIT 

0C55120 

B6 

10 

129 


JSR 

IDLPRT 

{PRINT 'IDLE' 

C*C58 : 



130 

* 




oc5b:ea 



131 

WLOOP 

NOP 


{IDLE LOOP 

0C59iEA 



132 


NOP 



0C5A !EA 



133 


NOP 



0C5B14C 

58 

OC 

134 


JMP 

WLOOP 


0C5E: 



135 

* 




ocse: 



136 

t*m*m«**tt*m*t«***m*t*ttt 

ocse: 



137 

* 




ocse: 



138 

* APPLE RECEIVER 


OCSE! 



139 

* 




0C5E! 



140 

mummtmtmmmmmtt 

ocse: 



141 

» 




ocse: 



142 

* INTERRUPT 

ENTRY POINT 

ocse : 



143 

* 




ocse : 78 



144 

IOINT 

SEI 


{DISABLE INTERRUPT 

0C5F : 20 

4 A 

FF 

145 


JSR 

IOSAVE 

iSAVE REGISTERS 

0C62:AD 

AO 

CO 

146 


LDA 

CSR 

{CLEAR INTR BIT IN CSR 

oc&s:ad 

A1 

CO 

147 


LDA 

XRDR 

{LOAD ACCUM WITH INPUT 

0C68 : 6C 

10 

OC 

148 


JhP 

(STATE) 

{GO TAKE CARE OF INPUT 

0C6B: 



149 

» 




0C6b: 



150 

* INTERRUPT 

EXIT POINT 

0C6B: 



151 

* 




0C6B : 18 



152 

GETBT 

CLC 


{UPDATE RECD CHECKSUH 

0C6C;aD 

OA 

OC 

153 


ADC 

RCSUH 

{ LO BYTE 

0C6FJ90 

03 


154 


BCC 

SKJPRC 


0C71 : EE 

OB 

OC 

155 


INC 

RCSUHF1 

{ HI BYTE 

0C74:BB 

OA 

OC 

156 

SKUPRC 

STA 

RCSUH 


0C77 : 



157 

t 
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0C77I18 



158 



CLC 


1 SET NEU INPUT BYTE VECTOR 

0C78i68 



159 



PLA 


i PULL LO ADDRESS! -1) 

0C79S6V 

01 


160 



ADC 

*1 


0C7B : 8D 

10 

OC 

161 



STA 

STATE 


oc;e:*s 



162 



PLA 


» PULL HI ADDRESS 

0C7F S o9 

00 


163 



ADC 

• 0 


0C81 S8L 

11 

OC 

164 



STA 

STATE41 


0C34I 



165 

» 





0C84 * 20 

3F 

FF 

166 



JSR 

IOREST 

•RESTORE REGISTERS 

0C87 5 SB 



167 



CLI 


•ENABLE IN' RRUPT 

0C83 : 40 



168 



RTI 



ot-8? : 



169 

* 





0C.B9: 



170 

4- 





0C89 : 



171 

4 

PACKET RECEIVING 


0CP9: 



172 

*- 





0589:20 

6B 

OC 

173 

STPAK 

JSR 

GETBT 


ocbc:c9 

90 


174 

STPAK 1 

CMP 

4DLE 

iLHECK FOR ' DLE ' BYTE 

008E : DO 

F9 


175 



BNE 

STPAK 


•7C90 5 



176 

» 





CC90J20 

6B 

OC 

177 



JSR 

GETBT 


0C93JC9 

83 


178 



CMP 

ISTX 

•CHECK FCR 'STX' BYTE 

0C95J&0 

F2 


179 



BNE 

STPAK 


0C971A2 

00 


180 



LDX 

♦ 0 

» ZERO RECD CHECKSUM 

0C99J8E 

OA 

OC 

*81 



STX 

RCSUM 


0C9C:8F 

OB 

OC 

ie 2 



STX 

RCSUM+1 


0C9F: 



183 

4 





oc?f : 20 

6B 

OC 

184 



JSR 

GETBT 

•GET OPCODE 

0CA2J8D 

07 

OC 

185 



STA 

OPCDE 

» SAVE IT 

orA5: 



1 86 

4 





0CA5J 



187 

> 

VERIFY CHECKSUM 


0CA5: 



188 

4 





0CA5J20 

6B 

OC 

189 

VERCHK 

JSR 

GETBT 

•GET 'DLE' BYTE 

0CA8120 

6B 

OC 

190 



JSR 

GETBT 

•GET ' ETX ' BYTE 

ocab:ae 

OA 

OC 

191 

VERIFY 

LDX 

RCSUM 

•SAVE LG BYTE RECD CHECKSUM 

0CAEI8E 

OE 

OC 

192 



STX 

SAVSUM 


ocbi :ae 

OB 

OC 

193 



LDX 

RCSUM41 

•SAVE HI BYTE RECD CHECKSUM 

0CB4 ! 8E 

OF 

OC 

194 



STX 

SAVSUMH 


0CB7: 



195 

4 





0CB7:20 

6B 

OC 

196 



JSR 

GETBT 

•GET LC BYTE XMITTED CHECKSUM 

ocba:cb 

OE 

OC 

197 



CMP 

SAVSUM 

• CHECK IT 

OCBICIiO 

CA 


198 



BNE 

STPAK 


ocbf: 



199 

4 





ocbf ; 20 

£>B 

OC 

200 



JSR 

GETBT 

• GET HI BYTE XMITTED CHECKSUM 

occ 2 :cc 

OF 

OC 

201 



CMP 

SAV5UM41 

i CHFCK IT 

OCC55DO 

C2 


202 



BNE 

STPAK 


occ7: 



203 

4 





occ;: 



204 

4 

DECIPHER 

GPCODE 


0CC7J 



205 

4 





0CC7JAH 

07 

OC 

206 



LDA 

OPCDE 

•LOAD OPCODE 

0CCAIC9 

34 


207 



CMP 

4ACK 

I ACK ? 

OCCCIFO 

18 


208 



BEQ 

ACKN 


occe:c9 

32 


209 



CMP 

4C0M 

• COMMANDS ? 

ocnotFo 

1C 


210 



BEQ 

COMN 


OCD25C9 

45 


211 



CMP 

irOHEND 

* COMMAND PACKET COMPLETED ? 

0LD45D0 

06 


212 



BNE 

CHKDTR 

• -NO » GO ON 

0CD6 : 20 

IE 

OD 

213 



JSR 

SNDACK 

• -YES»SEND ACK 
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OCD954C 

89 

OC 

214 


JHP 

STFAK 


ocdc:c9 

31 


215 

CHKDTR CMP 

♦ DRUN 

F DATA RUN ? 

OCDEIDO 

A9 


216 


BNE 

STFAK 

1 -NOrBAD OPCODE 

oceo:2o 

IE 

OD 

217 


JSR 

SNDACK 

i -YESrSEND ACK 

0CE314C 

A6 

OE 

21B 


JHP 

DATRUN 

i JUMP TO DATA RUN 

0CE6: 



219 

* 




0CE6: 



220 

1- 




0CE61 



221 

* 

RECEIVED 

ACKNOWLEDGE 

0CE6J 



222 

*- 




0CE6*.A9 

01 


223 

ACKN LDA 

*1 

{SET ACK FLAG 

0 C E ct 5 8D 

03 

OC 

224 


STA 

ACKFLG 


0CEB14C 

89 

OC 

225 


JHP 

STPAK 


ocee: 



226 

* 




ocee: 



227 

* 




ocee: 



228 

*- 




ocee: 



229 

* 

RECEIVE COMMANDS 


ocee: 



230 

t- 




ocee:a9 

45 


231 

COHN LDA 

♦COMEND 

r ST ORE 'COMMANDS COhPLETED 

ocfo:bd 

07 

OC 

232 


STA 

GPCDE 


0CF3:20 

6B 

OC 

233 


JSR 

GETBT 


OCF65C9 

90 


234 


CMP 

♦DLE 

{CHECK FOR 'DLE' BYTE 

ocfs’.do 

8F 


235 


BNE 

STPAK 


ocfa: 



236 

t 




ocfa:20 

68 

or. 

237 


JSR 

GETBT 


ocfd:c? 

81 


238 


CMP 

♦ CTX 

{CHECK FOR 'CTX' BYTE 

ocff:do 

88 


n~rry 

kJ / 


BNE 

STPAK 


ODOl :A2 

00 


240 


LDX 

♦ 0 

{ ZERO RECD CHECKSUM 

OD03J8E 

OA 

OC 

2 .1 


STX 

RCSUM 


0D06'.8E 

OB 

OC 

242 


STX 

RCSUH+1 


OD09: 



243 

* 




0D09:20 

6B 

OC 

244 


JSR 

GETBT 

{GET LASER REP NUMBER 

0D0CJ8D 

00 

OC 

245 


STA 

REPNUM 


odof:2o 

6B 

OC 

246 


JSR 

GETBT 

{GET LO BYTE SHOTS/PROF 

0D12 :8D 

01 

OC 

24’’ 


STA 

MSHOTS 


0D15520 

6B 

OC 

248 


JSR 

GETBT 

{GET HI BYTE SHOTS/PROF 

ODlbiSD 

02 

OC 

249 


STA 

MSH0TSF1 


0D1B:4C 

A5 

OC 

250 


JMP 

VERCHK 


odie: 



251 

* 




0D1E : 



252 


odie: 



253 

* 




odie: 



254 

* 

APPLE SENDER 


odie: 



255 

* 




odie: 



256 

mmmtttmmmtfcmmm* 

odie: 



257 

* 




odie: 



258 

*= 




odie: 



259 

* 

SEND ACKNOWLEDGE 


odie: 



260 

*= 


========== 


odie:a9 

34 


261 

SNDACK LDA 

♦ ACK 

{LOAD ACK OPCODE 

0D2O ! 8D 

04 

OC 

262 


STA 

DATOPC 


0D2 20 

5C 

OE 

263 


JSR 

SNDFRM 

{SEND ACK FRAME 

od2&:ao 



264 


RTS 



0D27J 



265 

4: 




0D27*. 



266 

* = 




0D27I 



267 

* 

SEND PROFILE DONE 

FRAME 

0D27*. 



268 

* = 




0D27:58 



269 

SNDPRD CLI 
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OD285A9 

33 


270 



LDA 

IPRDONE 

iLOAD 'PRDONE' OPCODE 

OB2A5SD 

04 

OC 

271 



STA 

DATOPC 


0D2D : A9 

03 


272 



LDA 

#ERRCNT 

(LOAD ERROR COUNT REG 

0D2FI8D 

05 

OC 

273 



STA 

ERRORS 


0D32558 



274 



CL I 



0033: 



275 

* 





0D331A9 

00 


276 

SNDPR1 

LDA 

to 

•CLEAR ACK FLAG 

0D35 : so 

03 

OC 

277 



STA 

ACKFLG 


0038:20 

5C 

OE 

278 



JSR 

SNDFRM 

•SEND PROFILE DONE FRAME 

OD3B5 



279 

* 





od3b:ao 

32 


280 



LDY 

#DEL1 

JUAIT FOR ACK 

0D3D 5 A9 

10 


261 

ACKUT1 

LDA 

*16 


003F520 

A8 

FC 

282 



JSR 

WAIT 

} DELAY 

0042» AD 

03 

OC 

283 



LDA 

ACKFLG 

» CHECK ACK FLAG 

01.45: no 

OB 


284 



BNF. 

0KACK1 


0047:88 



285 



DEY 



0048: 00 

F3 


286 



BNE 

ACKUT1 


0D4a:ce 

05 

OC 

287 

ERRCK1 

DEC 

ERRORS 


0040; do 

E4 


288 



BNE 

SNDPR1 


0D4F14C 

F7 

OF 

28? 



JrtP 

ERRPRT 


0052: 



290 

* 





0052560 



291 

0KACK1 

RTS 



0053: 



292 

*■- 


= 




0053: 



293 

* 

SEND 

DATA 

PACKETS 


0053! 



294 

*■- 


= _ = = = : 

===-====== 


0053: 



295 

* 





0053: 



296 

* 

SEND 

LO BYTE DATA 


0053: 



297 

* 





0053:20 

EA 

10 

298 

SNDDAT 

JSR 

TDPRT 

•PRINT 'TRANSMITTING DATA 

0056556 



299 



CLI 



0D57:A5 

50 


300 



LDA 

IQPCLO 

•LOAD BASE OPCODE 

0059580 

04 

OC 

301 



STA 

DATOPC 


oo5c: 



302 

* 





0D5C:A9 

00 


303 



LDA 

#>STADDL 

•LOAD STARTING ADDRESS 

0D5E:85 

F9 


304 



STA 

ADDRES 


0D605A9 

90 


305 



LDA 

#<S1 ADDL 


0062585 

FA 


306 



STA 

ADURES+1 


0064! 



307 

* 





0064 :A9 

DO 


308 



LDA 

#.->BYTCNT 

•LOAD BYTE COUNT 

0066:85 

FB 


309 



STA 

BYTES1 


0D68:A9 

07 


310 



LDA 

*<BYTCNT 


006AI85 

FC 


311 



STA 

BYTES1+1 


006C: 



312 

* 





0D6C520 

8B 

00 

313 



JSR 

DATOUT 

•GO SEND LO BYTES 

006F: 



314 

% 





oi<6f: 



315 

% 

SEND 

HI BYTE DATA 


006f: 



316 

* 





006F:A9 

EO 


317 



LDA 

tOPCHI 

•LOAD BASE OPCODE 

oo7i:ao 

04 

OC 

318 



STA 

DATOPC 


00745 



319 

* 





0074:A9 

00 


320 



LDA 

#>STADDH 

•LOAD STARTING ADDRESS 

0076585 

F9 


321 



STA 

ADDRES 


0078:A9 

98 


322 



LDA 

*<STADDH 


0D7A:85 

FA 


323 



STA 

ADDRESH 


OD7C5 



324 

* 





007C5A9 

DO 


325 



LDA 

*>BYTCNT 

•LOAD BYTE COUNT 


104 


0D7E585 

FB 


326 


STA 

BYTES1 



0D80*.A9 

07 


327 


LDA 

#<.BYTCNT 



0D82t85 

FC 


328 


STA 

BYTES1+1 



0D84: 



329 

* 





0DB4J20 

8B 

OD 

330 


JSR 

DATOUT 

>60 SEND HI BYTES 


0H87: 



331 

* 





0HB7J20 

27 

OD 

332 


JSR 

SNDF'RD 

>60 SEND 'PROFILE DONE' 1 

FRAME 

0D8a: 



333 

* 





odba:60 



334 

DDONE 

RTS 




0D8B : 



335 

* 





OD8B5 



336 

* 

— 

— 



0D8B: 



337 

* DATA 

PACKET SENDING 

ROUTINE 


odbb; 



338 




— 



oubb: 



339 

* 





odbb: 



340 

* CHECK FOR 

LAST PACKET (SET LAST PACKET FLAG) 


oubb: 



341 

t 





o ii 8 b : a 9 

00 


342 

DATOUT 

LDA 

to 

> INITIALIZE LAST PACKET 

FlhG 

obsb:sd 

06 

OC 

343 


STA 

LSTFLG 



od?o: 



344 

* 





0D901A9 

07 


345 

DTOUT 1 

LDA 

KPAKLEN 

> CHECK HI BYTE 


0D92:C5 

FC 


346 


CHP 

BYTESH1 



od9i:fo 

05 


347 


BEQ 

CHKLO 



01196190 

IB 


348 


BCC 

FULPAK 



0H96MC 

A1 

OD 

349 


JMP 

SETFLG 



0D9B:A9 

DO 


350 

CHKLO 

LDA 

#>PAKLEN 

i CHECK LO BYTE 


0D9DIC5 

FB 


351 


CHP 

BYTES1 



0D9F:90 

12 


352 


BCC 

FULPAK 



QDA1 : 



352 

* 





odai:a9 

01 


354 

SETFLG 

LDA 

ti 

>SET LAST PACKET FLAG 


0DA318D 

06 

OC 

355 


STA 

LSTFLG 



0DA6 1 



356 

* 





ODABiAS 

FB 


357 


LDA 

BYTES1 

>SET BYTE COUNT FOR LAST 

PACKET 

0DA8 1 8 D 

08 

OC 

358 


STA 

COUNT 1 



0DABJA5 

FC 


359 


LDA 

BYTES1+1 



0BAD18D 

09 

OC 

360 


STA 

COUNT 1 + 1 



0DB054C 

BD 

OD 

361 


JMP 

FAKOUT 



0 D B 3 ; 



362 

* 





0DB31A9 

DO 


363 

FULF'AK 

LDA 

#>PAKLEN 

>SET BYTE COUNT FOR FULL 

PACKET 

OBBS S 8B 

08 

OC 

364 


STA 

COUNT 1 



ODBB5A9 

07 


365 


LDA 

#<PAKLEN 



odba:8d 

09 

OC 

366 


STA 

COUNT 1 -FI 



odbd: 



367 

t 





odbd: 



368 

* SEND 

ONE 

PACKET 



odbd: 



369 

* 





0DBDJA9 

03 


370 

FAKOUT 

LDA 

tERRCNT 

{INITIALIZE ERROR COUNT 

REGISTER 

odbf:8d 

05 

OC 

371 


STA 

ERRORS 



0DC2:A9 

00 


372 

F'AKOT 1 

LDA 

to 

{INITIALIZE ACK FLAG 


0DC4J8D 

02 

OC 

373 


STA 

ACKFLG 



0DC7: 



374 

* 





0DC7J20 

5C 

OE 

375 


JSR 

SNDFRH 

{SEND DATA FRAME PART 1 


odca:20 

OC 

OE 

376 


JSR 

SNDPK2 

{SEND DATA FRAME PART 2 


odch: 



377 

* 





odcd:ao 

32 


378 


LDY 

tDELl 

{WAIT FOR ACK FLAG 


odcf:a9 

10 


379 

ACKWT2 

LDA 

*16 



ODDI • 20 

A8 

FC 

380 


JSR 

WAIT 

> DELAY 


0DD4 l AD 

03 

OC 

381 


LDA 

ACKFLG 

{ CHECK ACKFLAG 



105 


ODD?: DO 

OB 


382 


BNE 

0KACK2 


ODD?: 38 



383 


DEY 



ODDAiDO 

F 3 


384 


BNE 

ACKUT2 


OE’DCJ 



385 

* 




ODDC:Ct 

05 

OC 

386 

ERRCK2 

DEC 

ERRORS 


ODDFJDO 

El 


387 


BNE 

PAKUT1 


0DE1J4C 

F7 

OF 

388 


JMP 

ERRPRT 


0DL4 : 



399 

* 




ODE 41 



390 

* CHECK LAST PACKET FLAG 

odea: 



391 

* 




ODE 4 J AD 

06 

OC 

392 

0KACK2 

LDA 

LSTFLG 

»LAST PACKET DONE ? 

CDE71C9 

01 


393 


CMP 

*1 


ODE91FO 

20 


394 


BEQ 

DONE 

i -YES.GOTO DONE 

odeb: 



395 

* 




odeb: 



396 

* DETERMINE 

NEW STARTING ADDRESS* BYTE COUNT » l OPCODE 

odeb: 



397 

t 




odeb:i8 



398 

NEUADD 

CLC 


iNEU ADDRESS 

ODEC: A9 

DO 


399 


LDA 

*>PAKLEN 

* LO BYTE 

0DEE565 

F? 


400 


ADC 

ADDRES 


0DF0t85 

F9 


401 


STA 

ADDRES 


0DF2: 



402 

t 




0DF2:A9 

07 


403 


LDA 

KPAKLEN 

* HI BYTE 

0DF4 : 65 

FA 


404 


ADC 

ADDREStl 


ODF 6 : 85 

FA 


405 


STA 

ADDRES+l 


0DF8: 



406 

* 




0DF8:38 



407 


SEC 


.NEW BYTE COUNT 

0DF9:A5 

FB 


408 


LDA 

BYTES1 

) LO BYTE 

odfb:e? 

DO 


409 


SBC 

*>F'AKLEN 


0DFDJ85 

FB 


410 


STA 

BYTES1 


odff: 



411 

* 




odff:a5 

FC 


412 


LDA 

BYTES1+1 

. HI BYTE 

oeoi:e? 

07 


413 


SBC 

*<PAKLEN 


0E03J 85 

FC 


414 


STA 

BYTES1+1 


0EO5: 



415 

* 




0EO5JEE 

04 

OC 

416 


INC 

DATOPC 

INEU OPCODE 

O 

m 

O 

CD 

j* 

Cl 

90 

OD 

417 


JMP 

DT0UT1 

.SEND NEXT PACKET 

oeob: 



418 

* 




oeob:&o 



419 

DONE 

RTS 


iDATA BLOCK SENDING COMPLETE 

oeoc: 



420 

* 




oloc: 



421 

* 


— 


oeoc: 



422 

* DATA 

PACKET PART 2 


oeoc: 



423 

* SENDING ROUTINE 


oeoc: 



424 

* 


— 

— 

oeoc:as 

FA 


425 

SNDPK2 

LDA 

ADDRES+1 

» SAVE HI BYTE OF ADDRESS 

c=* 

CO 

Ui 

0 

LU 

O 

OC 

OC 

426 


STA 

SAVADD 


OEir. 



427 

* 




0E111A9 

90 


428 


LDA 

IDLE 


0E13 : 20 

?y 

OE 

429 


JSR 

SNDBYT 

iSEND ' DLE ' CHARACTER 

OE165A9 

00 


430 


LDA 

10 

.CLEAR XMIT CHECKSUM 

CE18:8D 

14 

OC 

431 


STA 

XCSUH 


0E1B58D 

15 

OC 

432 


STA 

XCSUMF1 


oeie: 



433 

* 




0E1EJA9 

81 


434 


LDA 

♦ CTX 


0E20520 

8B 

OE 

435 


JSR 

UF'DTCK 

j UPDATE XMIT CHECKSUM l SEND 'CTX 

0E231 



436 

* 




0E23: AE 

09 

OC 

437 


LDX 

COUNT 1 + 1 



106 


0E26 J AO 

00 


438 

SENDPG 

LDY 

*0 


oe2b:eo 

00 


439 


CPX 

to 

»LAST PAGE TG BE SENT ? 

oe2a:fo 

11 


440 


BEQ 

LASTPG 

i -YES>SEND LAST PAGE 

0E2CJ10 

08 


441 


BPL 

FULLPG 

i -NO » SEND FULL PAGE 

oe2e:ad 

OC 

OC 

442 


LDA 

SAUADD 

i -PACKET COHPLETED 

0E315B5 

FA 


4*i3 


STA 

ADDRES+1 

i RESTORE INITIAL ADDRESS 

0E33MC 

74 

OE 

444 


JHP 

ENDER 

» SEND PACKET ENDER 

Ci36J 



445 

* 




CE365A9 

00 


446 

FULLPG 

LDA 

to 

JSET BYTE COUNT FOR FULL PAGE 

0E38J35 

FF 


447 


STA 

TLBTCT 


0E3AJ4C 

46 

OE 

448 


JHP 

FfiDITl 


0E3DJ 



449 

* 




0E3DIAD 

08 

OC 

450 

LASTPG 

LDA 

COUNT 1 

»SET BYTE COUNT FOR LAST PAGE 

0E40IB5 

FF 


451 


STA 

TLBTCT 


0E421 



452 

* 




0E425C4 

FF 


453 

5ENDIT 

CPY 

TLBTCT 

*LAST BYTE OF PAGE SENT ? 

0E44JF0 

10 


454 


BEQ 

NEXTPG 

i -YESfSET UP FOR NEXT PAGE 

0E461B1 

F9 


455 

SNDIT1 

LDA 

( ADDRES) > 

Y } -NO > SEND ANOTHER 

0E48I20 

8B 

OE 

456 


JSR 

UPDTCK 


0E4B:C9 

90 


457 


CHP 

tDLE 

f DAT A = ' DLE' BYTE ? 

of.4d:do 

03 


458 


BNE 

SKDBL 

f -NOfSKIP DOUBLE 'DLE' 

0E4F:20 

8B 

OE 

459 


JSR 

UPDTCK 

f -YESfSEND SECOND 'DLE' 

0E521C8 



460 

SKDBL 

INY 



0E5314C 

42 

OE 

4ol 


JHP 

SENDIT 

;go TO SEND ANOTHER BYTE 

0E56 { 



462 

* 



1 

0E561CA 



463 

NEXTPG 

DEX 



0E575E6 

FA 


464 


INC 

ADBRES+1 

J SET ADDRESS FOR NEXT PAGE 

0E59MC 

26 

OE 

465 


JHP 

SENDPG 

l 

0E5C : 



466 

* 



j 

0E5CJ 



467 

* 




0E5C: 



468 

* HEADER PACKET SENDING ROUTINE 

0E5C! 



469 

* 




0E5CIA9 

90 


470 

SNDFRM 

LDA 

tDLE 


0E5E120 

99 

OE 

471 


JSR 

SNDBYT 

i SEND 'DLE' CHARACTER 

0E611A9 

00 


472 


LDA 

to 

JCLEAR XHIT CHECKSUH 

OE 63180 

14 

OC 

473 


STA 

XCSUH 


0E6618D 

15 

OC 

47* 


STA 

XCSUHfl 


0E695 



475 

* 




0E691A9 

83 


476 


LDA 

tSTX 


0E6B520 

BB 

OE 

477 


JSR 

UPDTCK 

fUPDATE XHIT CHECKSUH l SEND 'STX' 

0E6E l 



478 

* 




0E6E1AD 

04 

OC 

479 


LDA 

DATOPC 


0E71 20 

BB 

OE 

480 


JSR 

UPDTCK 

fUPDATE XHIT CHECKSUH l SEND OPCODE 

OE745 



481 

t 



) 

0E74JA9 

90 


482 

ENDER 

LDA 

tDLE 


0E76120 

8B 

OE 

483 


JSR 

UPDTCK 

•UPDATE XHIT CHECKSUH l SEND 'DLE' 

0E79: 



484 

* 




0E791A9 

82 


485 


LDA 

tETX 


0E7B:20 

99 

OE 

486 


JSR 

SNDBYT 

t SEND 'ETX ' CHARACTER 

0E7E: 



487 

* 



j ! 

OE7E5AD 

14 

OC 

488 

SNDCHK 

LDA 

XCSUH 

fSEND XHIT CHECKSUM * 

0E81 : 20 

99 

OE 

489 


JSR 

SNDBYT 

} LO BYTE 

0EB4JAD 

15 

OC 

490 


LDA 

XCSUH+1 

• 

0E87I20 

99 

OE 

491 


JSR 

SNDBYT 

1 HI BYTE 

oeba: 



492 

* 




0E8A J 60 



493 


RTS 






Ci 


107 


OEBB : 

oebb: 

0E8b: 

oesb: 

0E8B : 

0E8B *. 48 
0F.8C • IS 
CE 8D 1 6D 14 OC 
0E90*.9C 03 
0E92IEE 15 OC 
0E95JSD 1A OC 
0 E 9 3 1 6 B 
0E9V. 

0E99MB 
0E9A*.AD AO CO 
0E9D J 29 02 
CE9FJF0 F9 


494 * 

495 * 

496 * UPDATE CHECKSUM 1 SEND BYTE 

497 * ROUTINES 

498 * — 


49? 

UPDTCK 

PHA 


{SAVE BYTE 

500 


CLC 



501 


ADC 

XCSUH 

.UPDATE CHECKSUM 

502 


BCC 

SKUPXC 


503 


INC 

XCSUM+1 


504 

SKUPXC 

STA 

XCSUH 


505 


PLA 


{RESTORE BYTE 

506 

* 




507 

SNDBYT 

PHA 


{SAVE BYTE 

508 

L00P1 

LDA 

CSR 

{CHECK ACIA STATUS 

509 


AND 

*2 


510 


BEQ 

L00P1 



OEAi: 

OEA] *.68 
0EA2J8D A1 CO 
0EA5 J 60 


0EA6*. 
CEA6 t 


511 * 


512 

513 

514 

515 

516 


FLA .RESTORE BYTE 

STA XRDR .SEND BYTE 

RTS 

4 

m*m*m*m*mm****mtm 


0EA6 *. 

0EA6 » 

0EA6: 

0EA6J 

0EA6: 

0EA6 ! 20 DO 10 
0EA9JAD 01 OC 
OEAC58D 12 OC 
OEAF'.AD 02 OC 
0EB2 ! 8D 13 OC 
0EB5 5 

0EB51A9 00 
0EB71CD 12 OC 
0EBA1D0 03 
OEBCJCE 13 OC 
OEBF*. 

oebf: 

oebf; 

0EBF:A9 60 
0EC1J8D 04 C4 
0EC4 l 8D OC C4 
0EC7 A9 00 
0EC9J8D 05 C4 
0ECC:8B OD C4 


517 * 

518 * DATA RUN 

519 * 

520 tmttmmtmtmmmtmm 

521 * 


522 

DATRUN 

JSR 

TKPPRT 




523 


LDA 

MSHOTS 

{LOAD SHOT COUNTER 

TSHOT 

524 


STA 

TSHOT 




525 


LDA 

NSHOTS+1 




526 


STA 

TSHOT + 1 




527 

* 






528 


LDA 

*0 

{CHECK LO BYTE 

SHOT 

COUNT 

529 


CHP 

TSHOT 

» = 0 ? 



530 


BNE 

IDMAC 

{ -NO. GO ON 



531 


DEC 

TSH0TP1 

i -YES. DEC HI 

BYTE 

SHOT COUNT 


532 *- 

533 * INITIALIZE DMAC 


*- 

535 IDMAC 

LDA 

♦<BUFADD 

{LOAD ADDRESS 

HI 

BYTE 

536 

STA 

DMAREG+4 

i CHANNEL 1 



537 

STA 

DMAREG+12 

{ CHANNEL 3 



538 

LDA 

#>BUFADD 

{LOAD ADDRESS 

LO 

BYTE 

539 

STA 

DMAREG+5 

{ CHANNEL 1 



540 

STA 

DHAREG+13 

{ CHANNEL 3 




oecf:a? 

07 


541 

LDA 

♦ 107 

{LOAD COUNT HI BYTE 

0ED1 IBB 

06 

C4 

542 

STA 

DMAREG+6 

{ CHANNEL 1 

0ED4 5 8D 

OE 

C4 

543 

STA 

DMAREGI 14 

{ CHANNEL 3 

0ED7JA9 

D1 


544 

LDA 

tun 

iLOAD COUNT LO BYTE 

0ED9 8D 

07 

C4 

545 

STA 

DMAREG+7 

{ CHANNEL 1 

OEDCJBD 

OF 

C4 

546 

STA 

DMAREG415 

{ CHANNEL 3 

0EDFJA9 

02 


547 

LDA 

♦2 

{LOAD CHANNEL CONTROL 

0EE118D 

11 

C4 

548 

STA 

DMAREG+17 


0EE4t A9 

OC 


549 

LDA 

♦ 0 

{LOAD INTERRUPT CONTROL 


0EE658D 

15 

C4 

550 


STA 

DHAREG+21 


0EE95A9 

03 


551 


LDA 

*3 

i LOAD DATA CHAIN 

OEEBJBD 

16 

C4 

552 


STA 

DMAREG+22 


0FEEIA9 

02 


553 


LDA 

*2 

iLOAD PRIORITY CONTROL 

0EF05BU 

14 

C4 

554 


STA 

DMAREG+20 


0EF3J 



555 

* 




OEF3 5 



556 

* INIT 

MAINFRAME MEMORY 

0EF3! 



557 

*- 




0EF3 J A9 

00 


558 


LDA 

4>STADDL 

iLOAD STARTING ADDRESS 

0EF5J35 

FIi 


559 


STA 

PR T ADD 


OkF 7 : 

90 


560 


LDA 

KSTADDL 


0EF9 185 

FE 


561 


STA 

PRTADD+ 1 


olfb: 



562 

* 




oefb:a2 

10 


563 


LDX 

416 

iLOAD X WITH 16 (PAGES) 

oefp:a9 

00 


564 


LDA 

40 

i CLEAR A 1 Y 

oeffjab 



565 


TA V 



cfoo: 



566 

* 




OF 00 : 91 

Ft 


567 

CLRLP 

STA 

(PRTADD)f 

Y i CLEAR MEMORY 

OF02:C8 



568 


INY 



ofo3:do 

FB 


569 


BNE 

CLRLP 


OF05 JE6 

FE 


570 


INC 

PRTADD+1 


0F07SCA 



571 


DEX 



ofos:do 

F6 


572 


BNF 

CLRLP 


ofoa: 



573 

* 

— 



ofoa: 



574 

* FIRE 

LASER & CHECK 

FOR 

ofoa: 



575 

* 

DMA 

DONE 


ofoa: 



576 

*- 

— 



OFOA : 8D 

Cl 

CO 

577 

TRIG1 

STA 

TRIG 

iFIRE LASER 

ofod:ea 



578 


NOP 



OFOE’.Eh 



579 


NOP 



ofof:ea 



580 


NOP 



0F105A? 

04 


581 


LDA 

44 

i'UAIT' DURING DHA 

0F12J20 

A8 

FC 

582 


JSR 

WAIT 


0F15:2C 

11 

C4 

583 


BIT 

DMAREG+17 

i DMA BIT SET ? 

OF18J30 

OC 


584 


BMI 

INTGRT 

i -YES»GOTO INTGRT 

OFIA'.BH 

C4 

CO 

585 


STA 

SLPRST 

i -NO.RESET SLIPP INTERFACE 

OF 1 d : 20 

3A 

10 

586 


JSR 

TRGPRT 

> PRINT ERROR HESSAGE 

0F20:20 

DO 

10 

587 


JSR 

TKPPRT 


0F23*.4C 

OA 

OF 

588 


JMP 

TRIG1 


0F26! 



589 

* 




0F26J 



590 

* INTEGRATION 


0F26: 



591 

t 




of2a:ao 

00 


592 

INTGRT 

LDY 

40 

ilNIT Y 

0F2BI 18 



593 

ADDO 

CLC 


iFIRST PAGE ADDITION 

0F29:B? 

00 

60 

594 


LDA 

BUFADDi Y 

i LOU 8YTE ADD 

0F2CJ79 

00 

90 

595 


ADC 

STADDL.Y 


0F2F:99 

00 

90 

596 


STA 

STADDLi Y 


0F32*.A9 

00 


597 


LDA 

40 

i HIGH BYTE ADD 

0F34J79 

00 

98 

598 


ADC 

STADDH» Y 


0F37J99 

00 

98 

599 


STA 

STADDHr Y 


0F3A:i8 



600 

AUDI 

CLC 


i SECOND PAGE ADDITIONS 

0F3B:B9 

00 

61 

601 


LDA 

BUFADD+tlOO » Y 

0F3EJ79 

00 

91 

602 


ADC 

STA0DL+41Q0 * Y 

0F41 199 

00 

91 

603 


STA 

STADDLF$100»Y 

0F44 5 A9 

00 


604 


LDA 

40 


0F46 J 79 

00 

99 

605 


ADC 

STADDH+4100»Y 



00 

99 

606 


STA 

STADDHFllOOi Y 



0F4CS18 



607 

ADD2 

CLC 

(THIRD 

PAGE 

ADDITIONS 

OF4D5B9 

00 

62 

608 


LDA 

BUFADDM200* Y 



0F50179 

00 

92 

609 


ADC 

STADDL+4200? Y 



0F53599 

00 

92 

610 


STA 

STADDLF4200f Y 



OF565A9 

00 


611 


LDA 

*0 



0F5SJ 79 

00 

9A 

612 


ADC 

STADDHF$200» Y 



0F5t:99 

00 

9A 

613 


STA 

STADDH4I200. Y 



0-5E:i8 



614 

ADD3 

CLC 

(FORTH 

PAGE 

ADDITIONS 

CF5F5B9 

00 

63 

e>15 


LDA 

BUFADD44300» Y 



0F62*. 79 

00 

93 

616 


ADC 

STADDL+4300» Y 



0F65J99 

00 

93 

617 


STA 

STADDL+4300f Y 



0F68iA9 

00 


618 


LDA 

• 0 



OF6A579 

00 

9B 

619 


ADC 

ST ADDH + 4300 » Y 



0F6D199 

00 

9B 

620 


STA 

STADDH+$300>Y 



0F7O: 18 



621 

ADD 4 

CLC 

(FIFTH 

PAGE 

ADDITIONS 

OF^l t B9 

00 

64 

622 


LDA 

BUFADD+»400rY 



OF 7 4 J 79 

00 

94 

623 


ADC 

STADDL+I400.Y 



0F77 J 99 

00 

94 

624 


STA 

STADDLF4400* Y 



0F7AJA9 

00 


625 


LDA 

40 



0F7C 5 79 

00 

9C 

626 


ADC 

STADDH+>400» Y 



0F7F 599 

00 

9C 

627 


STA 

STADDH+4400* Y 



0F82: 18 



628 

ADD5 

CLC 

(SIXTH 

PAGE 

ADDITIONS 

0F83JB9 

00 

65 

629 


LDA 

BUFADD+4500.Y 



0F8&J79 

00 

95 

630 


ADC 

STADDLF4500» Y 



0F89J99 

00 

95 

631 


STA 

STADDL+$500» Y 



0F8C'A9 

00 


632 


LDA 

40 



OF 8E : 7V 

00 

9D 

633 


ADC 

STADDH+4500»Y 



OF 91 599 

00 

9D 

634 


STA 

STADDH+$500> Y 



OF 94 : IB 



635 

ADD6 

CLC 

» SEVENTH PAGE ADDITIONS 

0F95 JB9 

00 

66 

636 


LDA 

BUFADD+4600»Y 



0F9B:79 

00 

96 

637 


ADC 

STADDL+$600»Y 



0F9BJ99 

00 

96 

638 


STA 

STADDLF4600»Y 



0F9EIA9 

00 


639 


LDA 

40 



0FA0t79 

00 

9E 

640 


ADC 

STADDH + 4600 » Y 



0FA3*. 99 

00 

9E 

641 


STA 

STADDH+i600> Y 



0FA6J18 



642 

ADD7 

CLC 

(EIGHTH PAGE ADDITIONS 

OF A7 5 B9 

00 

67 

643 


LDA 

BUFADD+4700 » Y 



UFAA579 

00 

97 

644 


ADC 

STADDLFS700.Y 



0FADt99 

00 

97 

645 


STA 

STADDL+4700.Y 



ofbo:a9 

00 


646 


LDA 

40 



0FB2179 

00 

9F 

647 


ADC 

STADDH+S700 » Y 



0FB5 J99 

00 

9F 

648 


3TA 

STADDHF4700» Y 



CFB8* 



649 

* 





OFB85C8 



650 


INY 




0FB91F0 

03 


651 


BEQ 

NXTSHT 



0FBB14C 

28 

OF 

652 


JMF 

ADDO 



ofbe: 



653 

* 





OFBE! 



654 

* 



— 


ofbe: 



655 

* CHECK SHOT COUNTER 



ofbe: 



656 

* 

SEND PROFILE 



ofbe: 



657 

* 


— 

— 


ofbe:ce 

12 

OC 

658 

NXTSHT 

DEC 

TSHOT (CHECK 

SHOT 

COUNTER 

ofci : DO 

05 


659 


BNE 

SKUPTS 



0FC35CE 

13 

OC 

660 


DEC 

TSH0TF1 



OFC6J30 

OE 


661 


BHI 

PDONE 




ofc:b: 



662 

* 





0FC81 AO 

06 


663 

SKUPTS 

LDY 

*6 


ofcaiad 

00 

OC 

664 

RPLOQP 

LDA 

REPNUH 

(LASER REP DELAY 

ofcd:20 

A8 

FC 

665 



JSR 

WAIT 


orno: 88 



666 



DEY 



GFD1JDO 

F7 


667 



BNE 

RPLOOP 


QFD3S4C 

OA 

OF 

668 



JMP 

TRIG1 

>60 FIRE ANOTHER SHOT 

0FD61 



669 

* 





0FD6JA9 

8C 


670 

PDONE 

LDA 

#>STPAK1 

{RESET INPUT BYTE VECTOR 

0FD8 J 8D 

10 

OC 

671 



STA 

STATE 


ofhb:a9 

oc 


672 



LDA 

♦<STPAK1 


0FDIU8D 

11 

OC 

673 



STA 

STATE* 1 


OFEO! 



674 

* 





CFE0:20 

53 

OD 

675 



JSR 

SNDDAT 

(SEND DATA 

0FE3J20 

Bo 

10 

676 



JSR 

IDLPRT 

(PRINT 'IDLE' 

OFE654C 

89 

OC 

677 



JHP 

STPAK 


0FE9: 



678 

* 





0TE9 : 



679 

******************************** 

0FE95 



680 

* 





0FE9: 



681 

* 

PRINTING 

ROUTINES 


0FE9 1 



682 

* 





0FE9: 



683 

******************************** 

0FE9: 



684 

* 





0FE9: 



685 

* 

PRINT SUBROUTINE 


0FE9: 



686 

* 





ofe9:ao 

00 


687 

PRINT 

LDY 

*0 


OFEB'.Bl 

FD 


688 

PRINT 1 

LDA 

(PRTADD ) t 

Y 

ofed:fo 

07 


6B9 



BEQ 

ENDP 


0FEF120 

FO 

FD 

690 



JSR 

C0UT1 


0FF2 : C8 



691 



INY 



0FF3'.4C 

EB 

OF 

692 



JHP 

PRINT1 


0FF6160 



693 

ENDP 

RTS 



0FF7: 



694 

*- 


— 

— 


OFF7 5 



695 

* 

DATA 

TRANSMISSION ERROR HESSAGE 

OFF 71 



696 

*- 


— 

— 


0FF7120 

58 

FC 

697 

ERRF'RT 

JSR 

HOME 

{CLEAR SCREEN 

off a : 



698 

* 





OFFA5A9 

OA 


699 



LDA 

*10 

(SET VERTICAL TAB 

OFFC : 85 

25 


700 



STA 

CV 


0FFE520 

22 

FC 

701 



JSR 

VTAB 


iooi : 



702 

* 





1001 : A9 

09 


703 



LDA 

*9 

{SET HORIZONTAL TAB 

1G03J85 

24 


704 



STA 

CH 


1005:20 

BO 

FE 

705 



JSR 

SETINV 

{SET INVERSE SCREEN 

ioo8:a? 

57 


706 



LDA 

tERRHSG 


100A:85 

FD 


707 



STA 

PRTADD 


100C : A9 

11 


708 



LDA 

KERRMSG 


1C0EIB5 

FE 


709 



STA 

PRTADD+1 


1010:20 

E9 

OF 

710 



JSR 

PRINT 

{PRINT ERROR HESSAGE 

1013! 



711 

* 





10135A9 

OA 


712 



LDA 

*10 

{SET HORIZONTAL TAB 

1015:85 

24 


713 



STA 

CH 


1017520 

84 

FE 

714 



JSR 

SETNRM 

>SET NORMAL SCREEN 

ioia : a 9 

72 


715 



LDA 

*>TRYAGN 


101 c : 85 

FD 


716 



STA 

PRTADD 


ioie:a9 

11 


717 



LDA 

*<TRYAGN 




1020 

85 

FE 


718 



STA 

PRTADD+1 


1022 

20 

E9 

OF 

719 



JSR 

PRINT 

i PRINT TRY AGAIN 

1025 




720 

* 





1025 

20 

OC 

FD 

721 



JSR 

PDKEY 

* GET RESPONSE 

1028 

C9 

P9 


722 



CHP 

♦ ' Y 


102A 

IiO 

06 


723 



BNE 

NTAGN 


102C 

20 

58 

FC 

724 



JSR 

HOME 


102F 

4C 

53 

OD 

725 



JHP 

ENDDAT 


1032 

20 

58 

FC 

726 

NTAGN 

JSR 

HOHE 


1035 

68 



727 



PLA 


J GET OFF STACK 

1036 

68 



728 



PLA 



1037 

4C 

8A 

OD 

729 



JMP 

DDONE 


1 03A 




730 

* 





103A 




731 

* _ 








* 





103A 




732 

* 

LASER TRIGGER ERROR 

MESSAGE 

103A 




733 

* . 








* 





103A 

20 

58 

FC 

734 

TRGPRT 

JSR 

HOHE 


1 03D 

A9 

OA 


735 



LvA 

*10 


103F 

85 

25 


736 



STA 

CV 


1041 

20 

oo 

4 4 

FC 

737 



JSR 

VTAB 


1044 




738 

$ 





1044 

A9 

09 


739 



LDA 

*9 


1046 

85 

24 


740 



STA 

CH 


1048 

20 

80 

FE 

741 



JSR 

5ETINV 


1 0 4 B 

A9 

85 


742 



LDA 

#>TGMSG1 


104H 

85 

FIi 


743 



STA 

PRTADD 


1 04F 

A9 

11 


744 



LDA 

*<TGMSG1 


1051 

85 

FE 


745 



STA 

PRTADD+1 


1053 

20 

E9 

OF 

746 



JSR 

PRINT 


1056 




747 

* 





1056 

A9 

07 


748 



LDA 

*7 


1058 

85 

24 


749 



STA 

CH 


105A 

20 

84 

FE 

750 



JSR 

SETNRM 


105D 

A9 

9F 


751 



LDA 

*>TGMSG2 


105F 

85 

FD 


752 



STA 

PRTADD 


1061 

A9 

11 


753 



LDA 

*<TGHSG2 


1063 

85 

FE 


754 



STA 

PRTADD+1 


1065 

20 

E9 

OF 

755 



JSR 

PRINT 


1068 




756 

% 





1068 

20 

OC 

FD 

757 



JSR 

RDKEY 


106* 

60 



758 



RTS 



106C 




759 

* 





106C 




760 














106C 




761 

* 

HEADER MESSAGE 


106C 





* _ 








/ 0 1 

♦ 





106C 

20 

58 

FC 

763 

HEDPRT 

JSR 

HOHE 


106F 

A9 

06 


764 



LDA 

*6 


1071 

85 

25 


765 



STA 

CV 


1073 

20 

22 

FC 

766 



JSR 

VTAB 


1076 




767 

* 





1076 

A9 

OD 


768 



LDA 

*13 


1078 

85 

24 


769 



STA 

CH 


107A 

A9 

04 


770 



LDA 

♦>HDHSG1 


107C 

85 

FD 


771 



STA 

PRTADD 


107E 

A9 

11 


772 



LDA 

KHDHSGl 


1080 

85 

FE 


773 



STA 

PRTADD+1 



1 — 


I 


112 


1082J20 

E9 

OF 

774 



JSR 

PRINT 

1085*. 



775 

* 




10B5:A9 

08 


776 



L8A 

*8 

1087:85 

24 


777 



STA 

CH 

1099{A9 

15 


778 



L8A 

*>HDMS62 

1088:85 

F8 


779 



STA 

PRTADB 

108H :A9 

11 


780 



LDA 

KHDHSG2 

108F:85 

FE 


78J 



STA 

PRTADD+1 

1091:20 

E9 

OF 

782 



JSR 

PRINT 

1094 5 



783 

t 




1094JA9 

OF 


784 



LOA 

*15 

1096585 

24 


785 



STA 

CH 

109B5A9 

31 


786 



L8A 

*>HBHSG3 

1 09 A 5 85 

FD 


787 



STA 

PRTADB 

109C:A9 

11 


788 



L8A 

*<HDHSG3 

109E555 

FE 


789 



STA 

PRTADB+1 

10A0120 

E9 

OF 

790 



JSR 

PRINT 

10 A3 5 



791 

* 




10A35A9 

08 


792 



LBA 

*8 

10A5585 

24 


793 



STA 

CH 

1 0A7 : A9 

3E 


794 



LBA 

*>HDMSG4 

10A9585 

F8 


795 



STA 

PRTADB 

10AB5A9 

11 


796 



LBA 

KHDMSG4 

10AD585 

FE 


797 



STA 

PRTADB+1 

10AF520 

E9 

OF 

798 



JSR 

PRINT 

1082 5 



799 

* 




1082520 

CC 

F8 

800 



JSR 

RDKEY 

1085560 



801 



RTS 


10865 



802 

* _ 






* 




10865 



803 

* 

STATUS MESSAGES 

10865 



804 

± _ 






* 




10B65 



805 

* 




1086: 



806 

* 

IBLE 

MESSAGE 

1086: 



807 

* 




1086520 

58 

FC 

808 

IDLPRT 

JSR 

HOHE 

10B95A9 

OA 


809 



LBA 

*10 

1088585 

25 


810 



STA 

CO 

108D520 

22 

FC 

811 



JSR 

UTAB 

10C05 



812 

* 




10C05A9 

10 


813 



LBA 

*16 

10C25B5 

24 


814 



STA 

CH 

10C45A9 

BA 


815 



LBA 

*>IDLMSG 

10C6:B5 

FB 


816 



STA 

PRTADB 

10C8: A9 

li 


817 



LBA 

*<1DLHSG 

1 OCA *.85 

FE 


818 



STA 

PRTADD+1 

10CC520 

E9 

OF 

819 



JSR 

PRINT 

10CF560 



820 



RTS 


10D05 



821 

* 




10805 



822 

* 

TAKING PROFILE MESSAGE 

iodo: 



823 

* 




1080520 

58 

FC 

824 

TKPPRT 

JSR 

HOME 

10835A9 

OA 


825 



LBA 

*10 

1085585 

25 


826 



STA 

CV 

1087520 

22 

FC 

827 



JSR 

VTAB 

108Ai 



828 

* 




108A:A9 

OA 


829 



LBA 

*10 


i 


lone 

85 

24 


830 



STA 

CH 


10DE 

A9 

C3 


831 



LDA 

l/TKPMSG 


10E0 

85 

FD 


832 



STA 

PRTADD 


10E2 

A9 

11 


833 



LDA 

KTKPHSG 


10E4 

85 

FE 


834 



STA 

PRTADDii 


10E6 

20 

E9 

OF 

835 



JSR 

PRINT 


10E9 

60 



336 



RTS 



IOEA 




837 

* 





IOEA 




838 

1 

TRANSMITTING DATA MESSAGE 


IOEA 




839 

* 





IOEA 

20 

58 

FC 

840 

TDPRT 

JSR 

HOME 


10ED 

A9 

OA 


841 



LDA 

♦ 10 


10EF 

85 

25 


842 



STA 

CO 


1 OF1 

20 

22 

FC 

843 



JSR 

VTAB 


10F4 




R44 

* 





10F4 

A 9 

Oa 


845 



LDA 

♦ 10 


1 OF 6 

85 



846 



STA 

CH 


10F8 

A p 

D6 


847 



LDA 

♦>TDMSG 


iOFA 

85 

FD 


B48 



STA 

FRT ADD 


10FC 

A9 

11 


849 



LDA 

♦ <TI\*iSGU 


1 OFE 

85 

FE 


850 



STA 

PRTADD+1 


1100 

20 

E9 

OF 

851 



JSR 

PRINT 


1103 

60 



852 



RTS 



1104 




853 

* 





1104 




854 

»- 


— 

— 

— 

1104 




855 

* 

DATA 




1104 




856 

*- 

— 

— 


— 

1104 

Cl 

DO 

DO 

857 

HDHSG1 

ASC 

•APPLE SOFTWARE ' 

1107 

CC 

C5 

AO 







110A 

D3 

CF 

C6 







110H 

D4 

D7 

Cl 







1110 

ri.3 

C5 








1112 

8D 

BD 

00 

858 



DFB 

CR»CR»0 


1115 

03 

CF 

C4 

859 

HDMSG2 

ASC 

•SODIUM LIDAR 

PREPROCESSOR* 

1118 

C9 

D5 

CD 







111* 

AO 

CC 

C9 







1 1 IE 

C4 

Cl 

D2 







1121 

AO 

DO 

D2 







1124 

C5 

DO 

D2 







1127 

CF 

C3 

C5 







112A 

D3 

U3 

CF 







112 : 

D2 









112E 

8D 

8D 

00 

860 



DFB 

CRiCRiO 


1131 

82 

80 

AD 

861 

HDMSG3 

ASC 

•20-FED-83* 


1134 

C6 

C5 

C2 







11.37 

AD 

B8 

83 







U3A 

BD 

8D 

8D 

862 



DFB 

CR»CR»CR»0 


1 1 3D 

00 









113E 

8C 

AO 

DO 

863 

HDH5G4 

ASC 

•< PRESS 

A KEY TO BEGIN >* 

1141 

D2 

C5 

D3 







1144 

D3 

AO 

Cl 







1147 

AO 

CB 

C5 







1 1 4A 

D9 

AO 

D4 







1 14D 

CF 

AO 

C2 







1150 

C5 

C7 

C9 







1153 

CE 

AO 

BE 








114 


1156500 



864 

DFB 

11575 C 4 

Cl 

D 4 

865 ERRHSG 

ASC 

u 5 a:ci 

AO 

D 4 



115 D 5 D 2 

Cl 

CE 



11605 D 3 

CD 

09 



1 1635 D 3 

D 3 

09 



11665 OF 

CE 

AO 



11695 C 5 

D 2 

D 2 



1 1 6 L 5 C P 

nr 




116 E 58 U 

HD 

6 D 

866 

DFB 

1171500 





1172 SD 4 

D 2 

D 9 

867 TRYAGN 

ASC 

1 1755 AO 

D 3 

05 



11785 CE 

04 

09 



117 B 5 CE 

07 

AO 



117 E 5 C 1 

07 

01 



1181 5 C 9 

OE 

BF 



1184500 



868 

DFB 

11855 CC 

Cl 

D 3 

869 TGHSG 1 

ASO 

1188505 

D 2 

AO 



118 B 5 D 4 

D 2 

09 



118 FSC 7 

07 

05 



11915 D 2 

AO 

D 3 



1 1 94 5 03 

D 2 

05 



11975 D 7 

AD 

D 5 



119 A 5 DO 





1 1 v b : e i« 

8 D 

8 D 

870 

DFB 

119 E 500 





119 F 5 BO 

DO 

D 2 

871 TGMSG 2 

ASO 

11 A 25 C 5 

D 3 

D 3 



11 A 55 AO 

Cl 

AO 



11 A 850 B 

05 

D 9 



11 AB 5 A 0 

D 4 

OF 



11 AE 5 A 0 

D 4 

D 2 



11 B 15 D 9 

AO 

Cl 



11 B 45 C 7 

Cl 

09 



11 B 75 CE 

BE 




11 B 9500 



872 

DFB 

11 BA 5 BO 

AO 

C 9 

873 IDLMSG 

ASC 

11 BD 504 

CC 

05 



1 100 5 AO 

BE 




1102500 



874 

DFB 

1 103 5 BO 

AO 

D 4 

875 TKPHSG 

ASO 

1106501 

OB 

09 



11 C 95 CE 

07 

AO 



1 100 5 DO 

D 2 

OF 



11 CF 5 C 6 

09 

CC 



11 D 25 C 5 

AO 

BE 



1 IDS 500 



876 

DFB 

11 D 65 BO 

AO 

D 4 

877 TDMSG 

ASO 

11 D 95 D 2 

01 

CE 



11 DC 5 D 3 

CD 

09 



11 DF 5 D 4 

D 4 

09 



11 E 25 CE 

C 7 

AO 



11 E 55 C 4 

01 

D 4 



11 E 85 C 1 

AO 

BE 



1 IE B 5 00 



878 

DFB 


0 

‘DATA TRANSMISSION ERROR* 


CRfCR'CRtO 

•TRY SENDING AGAIN?' 


0 

‘LASER TRIGGER ERROR* 


CR»CRiCR »0 

•<PRESS A KEY TO TRY AGAIN>* 


0 

*< IDLE >* 

0 

•< TAKING PROFILE >* 


0 

•< TRANSMITTING DATA >* 


0C03 

ACKFLG 

0CE6 

ACKN 

34 

ACK 

OF? 8 

Aimo 

?0F5E 

ADD3 

70F70 

ADI'4 

70FA6 

ADD7 

F9 

ADDRES 

FB 

BYTES1 

24 

CH 

OFOO 

CLRLP 

32 

CON 

0C08 

COUNT 1 

FDFO 

C0UT1 

81 

CTX 

2^ 

CV 

0EA6 

DATRUN 

0D8A 

DOONE 

C400 

DHAREG 

OEOB 

DONE 

OE74 

ENDER 

OFF 6 

ENDP 

03 

ERRCNT 

1157 

ERRNSG 

82 

ETX 

0236 

FULLPG 

1104 

HDMSG1 

1115 

HDHSG2 

106C 

HEDPRT 

FC5B 

HOHE 

OEBF 

IDMAC 

0F26 

INTGRT 

FF3F 

IOREST 

FF4A 

IOSAVE 

38 

K8U 

0E30 

LASTPG 

0C01 

HSHOTS 

70DEB 

NEUADD 

OFBE 

NXTSHT 

0D52 

OK ACK 1 

ro 

OP CHI 

50 

OPCLO 

ODBD 

PAKOUT 

0FD6 

PDONE 

OFEB 

PR INTI 

FD 

PRTADH 

OCOO 

REPNUM 

OFCA 

RPLOOP 

0E42 

SENDIT 

0E26 

SENDPG 

FE84 

SETNRM 

0E52 

SKDBL 

0E95 

SKUPXC 

COCO 

SLPIO 

0E99 

SNDBYT 

70E7E 

SNDCHK 

0E46 

SND1T1 

OEOC 

SNDPK2 

9800 

STADDH 

7000 

STADDL 

OCBC 

STPAK1 

8^ 

STX 

1185 

TGHSG1 

1 19F 

TGNSG2 

FF 

TLBTCT 

103A 

TRGPRT 

1172 

TRYAGN 

0C12 

TSHOT 

70CAB 

VERIFY 

FC22 

VTAB 

0C14 

XCSUM 

C0A1 

XRDR 


QB3D 

ACKWT 1 

ODCF 

ACKUT2 

70F3A 

AD01 

7 0F4C 

ADD2 

70F82 

ADD5 

’0F94 

A0D6 

6000 

BUF ADD 

<'7D0 

BYTCNT 

OCDC 

CHKDTR 

0D9B 

CHKLO 

45 

COMEND 

OCEE 

CUMN 

BD 

CR 

COAO 

CSR 

0C04 

DATOPC 

ODoB 

DATOUT 

32 

DELI 

c * 

DLE 

31 

DRUN 

0D90 

DT0UT1 

70D4A 

ERRCK1 

70DDC 

ERRCK2 

0C05 

ERRORS 

OFF? 

EKRPRT 

0DB3 

FULPAK 

0C6B 

SET*' 

1131 

HDMSG3 

113E 

HDMCo-t 

UFA 

IDLMSG 

10B6 

IDLrTT 

03FE 

INTV 

0C5E 

1 0 1 NT 

C010 

KBDGTB 

FD1B 

KEYIN 

0E9A 

L00P1 

0C06 

LSI FI G 

0E56 

NEXTPG 

1032 

NTAGN 

0DE4 

OKACr.2 

0C07 

DPCDE 

07D0 

PAKLEN 

0DC2 

FAK0T1 

33 

PR DONE 

0FE9 

PRINT 

OCOA 

RCSUM 

FDOC 

RCKEY 

OCOC 

SAVADD 

OCOE 

SAVSUM 

JDA1 

SETFLG 

FE80 

SETINV 

0C74 

SKIJPRC 

CFC8 

SKUPTS 

C0C4 

SLPRS1 

0D1E 

SNDACK 

0D53 

SNDDAT 

0E5C 

SNDFRM 

0D33 

SNDPR1 

0D27 

SNDFRD 

OC’O 

STATE 

0C8'' 

STPAK 

1 1 1*6 

TDMSG 

10EA 

TI)PR T 

11C2 

TKPHSG 

10U0 

TKF "RT 

C0C1 

TRIG 

OFOA 

TRIG1 

0E82 

UPDTCK 

CA5 

VERCHK 

FCA8 

WAIT 

0C58 

ULOOP 


\zs 
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C t*********************************** 

c * 

C * SODIUM LIDAR PROGRAM 
C * 11/16/82 

C # D.VOELZ 

C * 

C THIS PROGRAM ( ALONG WITH ITS ASSOCIATED SUBROUTINES ) 
C IS DESIGNED TO CONTROL THE SODIUM L’DAR EXPERIMENT 
C AT THE UNIVERSITY OF ILLINOIS. 

C THE PROGRAM DISPLAYS A MAIN MENU. CHOOSING ONE OF THE 
C OPTIONS DISPLAYED CAUSES THE PROGRAM TO GO TO ONE OF 
C THE ASSOCIATED SUBROUTINES. 


MAIN SUBROUTINES CALLED IN THE PROGRAM FOLLOW.’ 
EXFPAR - EXPERIMENT PARAMETERS 
CSTTUS - CURRENT STATUS 
LAALN - LOW-ALTITUDE ALIGNMENT ROUTINE 
ALNRTN - SODIUM ALIGNMENT ROUTINE 
DATRUN - DATA RUN 
EXMPRF - EXAMINE PROFILE ON DISK 
MOUT - HEX DUMP OF THE ARRAY LDATA 


OTHER SUBROUTINES USED.’ 

CLRSCN - CLEAR TERMINAL SCREEN 
BAKSCN - NORMAL (BACKGROUND) SCREEN 
FORSCN - HIGHLIGHT (FOREGROUND) SCREEN 
DATE - GET PRESENT DATE 
TIME - GET PRESENT TIME 


A DESCRI? T I "V OF SOME OF THE VARIABLES USED IN THIS PROGRAM 
AND ITS SUBROUTINES FOLLOWS: 


BINS - # BINS OF INTEREST 
BSATF - BASE ALTITUDE (FT) 
B60 - 60 KM BIN POINTER 
CLA - COLUMN ABUN'D RATIO 
CSET - CURRENT SET 
FNAME - FILE NAME ARRAY 
HBI - HI BIN OF INTEREST 
HRI - HI RANGE OF INTEREST 
INTSIZ - FILE BLOCK SIZE 
K60 - PHOTONS 60-80 KM 
K ICO - PHOTONS 100-120 KM 
LDATA - DATA ARRAY 
LREP - DATRUN REF RATE 
MSHOTS - SHOTS/PROF (SENT) 
REANG - ELEVA'N ANGLE (RAD) 
REPNUM - REP NUMBER 
REPR4 - ALNRTN REP RATE 
SETS - # OF SETS 
SHOTSP - DATRUN SHOTS/PROF 
SH0TS4 - ALNRTN SHOTS/PROF 


BSAT - BASE ALTITUDE (KM) 

B30 - 30 KM BIN POINTER 

C - SPEED OF LIGHT 

CPROF - CURRENT PROFILE 

EANG - ELEVATION ANGLE (DEGREES) 


GATTIM - RECEIVER GATE TIME 
HDRB - # HEADER BYTES IN DATA 


IDATE - DATE ARRAY 
I TIME - TIME ARRAY 
K80 - PHOTONS 80-100 KM 
LBI - LO BIN OF INTEREST 
LRI - LO RANGE OF INTEREST 
LSET - PREVIOUS SET # 

PDEL - INTER-PROFILE DELAY 
RECSIZ - FILE RECORD SIZE 
REPR3 - LAALN REP RATE 
RG - RANGE GATE (BIN SIZE) 
SGP - SIGNAL PHOTONS 
SH0TS3 - LAALN SHOTS/PROF 
S20 - # BINS IN 2u KM 


TSGP - TOTAL SIGNAL PHOTONS 


(+) 
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C 

c flags: 

C ERRFLG - SET WHEN A LSI1 1-APPLE TRANSMISSION ERROR OCCURS 
C DFLAG - SET WHEN A COMPLETED PROFILE IS RECEIVED 
C RUNFLG - DESIGNATES WHICH SUBROUTINE (LAALN, ALRTN,DATRUN) IS 
C BEING RUN 

C 

000 1 INTEGER SETS , PROFS , SHOTSP , CSET , CPROF , LSET » LPROF >HBI »LBI 
>,SHOTS3,SHOTS4,INTSIZ,RECSIZ,B30,B60,S20,K30,K60,K80,K100 
> , SGP » TSGP i PDEL 

0002 REAL IREP,LRI,HRI,EAM,BSAT,REPR3,REPR4,PI,C,&ATTIM,RG 
>, CLA, RlANG, BSATF 

0003 L0GICAL*1 IDATE(9) , I T I ME ( B ) 

0004 BYTE FNAME( 15) 

C 

0005 COMMON /DATTIM/ IDATE » ITIME 

0006 COMMON /SETS/ SETS, PROFS , SHOTSP 

0007 COMMON /LREPS/ LREP.LRI ,HRI ,LBI ,HBI , BSAT, BSATF , EANG 
>.REANG, PDEL 

0008 COMMON /STATS/ CSET, CPROF, LSET, LPROF 

0009 COMMON /CALCS/ K30,K60,K80,K100, SGP, TSGP, CLA 

0010 COMMON /ALN/ REPR4,SH0TS4 

0011 COMMON /LAAN/REPR3, SH0TS3 

0012 COMMON /DISK/ INTSIZ,RECSIZ,FNAME 

0013 COMMON/PTERS/ B30,B60,S20 

0014 COMMON /CONST/ PI ,C,GATTIM,RG 
C 

C VARIABLE DEFAULT VALUES 
C 

0015 SETS = 20 

0016 PROFS = 10 

0017 SHOTSP = 100 

0018 LREP = 10.0 

0019 PDEL=0 

0020 EANG = 90. 

0021 LRI = 0.075 

0022 HRI = 149.925 

0023 BSAT = 0. 

0024 BSATF = 0. 

0025 LBI = 1 

0026 HBI = 1000 

0027 CSET = 1 

0028 CPROF = 1 

0029 LSET = 0 

0030 LPROF = 0 

003 1 K30 = 0 

0032 K60 = 0 

0033 KBO = 0 

0034 K100 = 0 

0035 SGP = 0 

0036 TSGP = 0 

0037 CLA = 0. 

0038 REPR3=10. 

0039 SHOTS3=100 
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0040 REPR4= 10 . 

0041 SH0TS4- 100 

0042 PI=3. 1415927 

0043 C=3. 0E5 

0044 GATTIh=l .OE-6 

0045 RG=(GATTIM*C)/2. 

0046 REANG=PI/2. 

0047 DATA FNAME/'D'i 'Y'» 'O'. '. 'S'» 'E'» 'T'»0,0»0» , 'D'» 'A' 

>, 'T ' r 0/ 

C 

C INITIALIZATION 

C 

C INIT SERIAL RECEIVER INTERRUPT ROUTINE 

0048 CALL INITR 

C SET JOB STATUS FOR TERMINAL CONTINUE MODE 

0049 CALL I POKE ( "44 1 " 100. OR. I PEEK ("44)1 

C 

C DISPLAY MAIN MENU 

C 

0050 3 CALL CLRSCN 

0051 CALL BAKSCN 

0052 TYPE 5 

0053 CALL DATE ( IDATE ) 

0054 CALL TIME ( ITIME ) 

0055 TYPE 12» ( IDATE< I)» 1 = 1 »9) » CITIhE(J) »J = 1 »8) 

0056 TYPE 10 

0057 TYPE 15 

0058 TYPE 20 

0059 TYPE 22 

0060 TYPE 25 

0061 TYPE 30 

0062 TYPE 32 

0063 TYPE 35 

0064 5 FORMAT ( ' 'T22'S0DIUM LIDAR - UNIVERSITY OF ILLINOIS'/) 

0065 10 FORMAT ( ' 'T35'MAIN MENU'/) 

0066 12 FORMAT ( ' M35, 9A1 , /T35, 8A1 , // ) 

0067 15 FORMAT! '0 'T1 4 '< 1 > Experiment Parameters '/) 

0068 20 FORMAT ( ' 'Tl4'<2> Current Status'/) 

0069 22 FORMAT ( ' 'T14'<3> Low Altitude Alianment Run'/) 

0070 25 FORMAT ( ' 'T14'<4> SodiuM Alisnmer.t Pun'/) 

0071 30 FORMAT ( ' 'T14'<5> Data Run'/) 

0072 32 FORMAT ( ' 'T14'<6> Examine Profile on DisK'/) 

0073 35 FORMAT! '0'/T5'Enter an option.* '$) 

C 

C GET AND CHECK RESPONSE 

C 

0074 READ (5» * » ERR=3) OPT 
C EXPERIMENT PARAMETERS 

0075 IF (OPT. EG. 1 ) CALL EXPPAR 
C CURRENT STATUS 

0077 IF (OPT. EG. 2 ) CALL CSTTUS 

C LOW-ALTITUDE ALIGNMENT RUN 
0079 IF ( OPT . EG . 3 ) CALL LAALN 

C SODIUM ALIGNMENT RUN *■ 

1 

I- 


I * 

1 * 
I • 

I 

} 


f 


a 


■ 
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0081 IF( OPT . EG. 4 ) CAlX ALNRTN 

C DATA RUN 

0083 IF (OPT. EG . 5 ) CALL DA7RUN 

c exahin: profile on disk 

0085 IF(0PT.EQ.6) CALL EXMPRF 

C HEX DUMP OF ARRAY LDATA 
0087 IF (OPT. EG. 7) CALL MOUT 

0089 GOTO 3 

0090 STOP 

0091 END 
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Local Variables. .PSECT 

$DATA, 

Size = 

000020 

( B. words) 


Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

I 

1*2 

000006 


J 

1*2 

000010 

OPT 

R*4 

000012 

COMMON 

BlocK 

/DATTIM/, 

Size = 

000021 

( ?. 

words ) 



Name 

T ype 

Offset 


Name 

Tv pe 

Offset 

Name 

T ype 

Offset 

IDATE 

L*1 

000000 


ITIME 

L* 1 

000011 




COMMON 

BlocK 

/SETS 

/. 

Size = 

000006 

< 3. 

words ) 



Name 

Type 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

SC TS 

1*2 

000000 


PROFS 

1*2 

000002 

SHOTSP 

1*2 

000004 

COMMON 

BlocK 

/LREPS 

/. 

Size = 

000042 

( 17. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

LREP 

R*4 

000000 


LRI 

R*4 

000004 

HR I 

R*4 

000010 

LBI 

1*2 

000014 


HBI 

1*2 

000016 

BSAT 

R*4 

000020 

BSATF 

R*4 

000024 


EANG 

R*4 

000030 

REANG 

R*4 

000034 

FDEL 

1*2 

000040 








COMMON 

BlocK 

/STATS 

/, 

Size = 

000010 

( 4. 

words) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

CSET 

1*2 

000000 


CPROF 

1*2 

000002 

LSET 

1*2 

000004 

LPROF 

1*2 

000006 








COMMON 

BlocK 

/CALCS 

/, 

Size = 

000020 

( 8 . 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

f ype 

Offset 

K30 

1*2 

000000 


K60 

1*2 

000002 

K80 

1*2 

000004 

K100 

1*2 

000006 


SGP 

1*2 

000010 

TSGP 

1*2 

000012 

CL A 

R*4 

000014 








COMMON 

BlocK 

/ALN 

/, 

Size = 

000006 

( 3. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

.EPR4 

R* 4 

000000 


SH0TS4 1*2 

000004 




COMMON 

BlocK 

/LAAN 

/. 

Size = 

000006 

( 3. 

words) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

REPR3 

R*4 

000000 


SH0TS3 1*2 

000004 




COMMON 

BlocK 

/DISK 

/. 

Size = 

000023 

( 10. 

words ) 



Name 

Type 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

INTSIZ 

1*2 

000000 


RECSIZ 1*2 

000002 

FNAME 

L*1 

000004 



■r 
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COMMON 

BlocK 

/PTERS /, 

Size * i 

000006 

( 3. 

words ) 



Name 

T ype 

Offset 

Name 

Type 

Offset 

Name 

T ype 

Offset 

BOO 

1*2 

OOOOOO 

B60 

1*2 

000002 

S20 

1*2 

000004 

COMMON 

BlocK 

/CONST /, 

Size = 

000020 

( E. 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

PI 

R*4 

OOOOOO 

C 

R*4 

000004 

GATTIM 

R*4 

000010 

RO 

R*4 

000014 







Local and COMMON Arrays! 






Name 

Type Section Off-.et 



— Size — 

Dimensions 


FNAME 

L*1 

DISK 

000004 

000017 ( 

8.) (15) 



IDATE 

L*1 

DATTIM 

OOOOOO 

000011 ( 

5.) (9) 



I TIME 

L*1 

DATTIM 

000011 

000010 ( 

4.) (8) 



Subroutines * 

Functions 

. Statement and Processor-Defined Functions! 

Name 

Type 

Name Type Name Type Name Type 

Name 

Type 

AlNRTN 

R*4 

BAKSCN 

R*4 CL 

RSCN 

R*4 CSTTUS R*4 

DATE 

R*4 

DATRUN 

R*4 

EXMPRF 

R*4 EXPPAR 

R*4 INITR 1*2 

I PEEK 1*2 

I POKE 

1*2 

LAALN 

1*2 MOUT 

1*2 TIME R*4 
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SUBROUTINE EXPPAR - EXPERIMENT PARAMETERS 
D.VOELZ 

**«*«**• ft ftftftftftftftftftftftftftftft ftftftftftftftftftftftftft ftftftftftftftftftftftftft*** 

THIS SUBROUTINE DISPLAYS THE LIDAR EXPERIMENT 
PARAMETER VALUES AND ALLOWS THE VALUES TO BE 
CHANGED. 

SUBROUTINE EXPPAR 

INTEGER SETS, PROFS. SHOTSP, LBI , H8I , PDEL 

REAL LREP.LRI .HR I .EANG.C.GATTIM.RG. PI . REANG.BSAT .DENOM 

or A! RCflTr 

L0GICAL*1 I DATE ( 9 ) , ITIME(B) 

BYTE CHNG 

COMMON /DATTIM/ IDATE , ITIME 
COMMON /SETS/ SETS , PROFS . SHOTSP 

COMMON /LREPS/ LREP.LRI , HRI ,LBI ,HBI . BSAT .BSATF , EANG. 
>REANG, PDEL 

COMMON /CONST/ PI .C.GATTIM.RG 


DISPLAY PARAMETER MENU 


CLEAR SCREEN AND SET ON BACKGORUND (LO INTENSITY) 

5 CALL CLRSCN 
CALL BAKSCN 
GET DATE AND TIME 
CALL DATE(IDATE) 

CALL TIME! ITIME) 

TYPE 20,(1 DATE ( I ) , I = 1 . 9 » , ( ITIME ( J ) , J = 1 , 8 ) 

SET SCREEN ON FOREGROUND (HI INTENSITY) 

CALL FORSCN 
TYPE 30, SETS 
TYPE 35, PROFS 
TYPE 40, SHOTSP 
TYPE 45.LREP 
TYPE 46, PDEL 
TYPE 47, EANG 
TYPE 48, BSAT 
TYPE 49, BSATF 
TYPE 50.LRI ,HRI 
TYPE 52.LBI.HBI 

SET SCREEN ON BACKGROUND (LO INTENSITY) 

CALL BAKSCN 
TYPE 70 

20 FORMAT ( ' ',/, T29 , 'EXPERIMENT PARAMETERS ',/, /T35 , 9A1 , /T35 . 9A1 ,// ) 
30 FORMAT ( ' ',T14,'<S> #Sets ',Z1X.'= '.14,' ') 

35 FORMAT ( ' ',T14,'<P> #Profiles Per Set ',9X,'= ',14 
>, ' ') 

40 FORMAT ( ' ',T14,'<L> #Laser Shots Per Prof i I e ' , 3X, ' = ',14 
>, ' ') 
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0033 45 FORMAT ( ' '.T14,'<!?> Laser Rep Rate \13X. '« ',F4.1»'Hz' 

>, ' ') 

0034 4fc FORMAT ( ' ',T14,'<D> Inter-Prof i 1 e Delay ', Bx , ' = M4,'Sic' 

>. ' ') 

0035 47 FORMAT ( ' ',T14,'<E> Elevation Ansle M2X. ' = ' ,F5. 1 , ' Dearees ' 

>, ' ') 

0036 48 FORMAT ( ' ',T14,'<B> Base Altitude M4X. '= \F6.2,'KM' 

>, ' ') 

0037. 49 FORMAT ( ' ' , T14 , '<F> ' , 29X, '= ' ,F7. 1 . ' Ft ' , ' ') 

0038 50 FORMAT ( ' ',T14.'<H> Altitude Ranae of Data'.4X,' = ',F6.2, 

+ ' To ' , F7. 2 , 'KM') 

0039 52 FORMAL' ',T14.'<N> Ranae Bins', 16X,' * M4,' To ',14 

>,' ') 

0040 70 F0RMAT( '0 ',///, T5, 'To chanae any parameter value first enter th 

+e correspondina ', /T5, 'LETTER and then RETURN ',$) 

C 

C GET RESFONSE 

C 

0041 READ(5,B0,ERR=5) CHNG 

0042 80 FORMAT ( Al ) 

C 

C CHECK RESPONSE AND CHANGE VALUES 

C- — 

0043 CALL FORSCN 
C CHANGE SETS 

0044 81 IF(CHNG.NE. 'S') GOTO 90 

0046 TYPE 85 

0047 85 FORMAT( '0',T14, '#Sets = ',$) 

0048 READ(5,« , ERR =200 ) SETS 

0049 IF(SETS.LE.O) GOTO 200 

0051 GOTO 5 

C CHANGE PROFILES PER SET 

0052 90 IF(CHNG.NE. ' P ' ) GOTO 100 

0054 92 TYPE 93 

0055 93 FORMAT ( '0 ' » T14» '# Profiles Per Set = ',$) 

0056 READ ( 5, *,ERR=200) PROFS 

0057 IF ( PROFS. LE.O) GOTO 200 

0059 GOTO 5 

C CHANGE LASER SHOTS PER PROFILE 

0060 100 IF(CHNG.NE. 'L ' ) GOTO 110 

0062 102 TYPE 103 

0063 103 FORMAT ( '0',T14r '#Laser Shots Per Profile * ',») 

0064 READ ( 5 , * , ERR =200 ) SHOTS P 

0065 I F ( SHOTSP . LE . 0 )GOTO 200 

0067 GOTO 5 

C CHANGE LASER REP RATE 

0068 110 IF(CHNG.NE. 'R ' ) GOTO 115 

0070 112 TYPE 113 

0071 113 FORMAT( 'O', T14, 'Laser Rep Rate = ',*) 

0072 READ(5i*iERR=2C0)LREP 

0073 IF ( (LREP . LE. 0. 0 ) . OR. ( LREP. GT. 10.0) ) GOTO 200 

0075 GOTO 5 

C CHANGE INTER-PROFILE DElAY 

0076 115 I F ( CHNG . NE . ' D ' ) GOTO 120 
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0078 


117 

TYPE in 

FORMAT! O', T14, 'Inter-Profile Delay = '.*) 

0079 


118 

0080 



READ(f ,*,£RR=200) PDEL 

0081 



IF ! FDEL.LT. 0 )GOTO 200 

0083 



GOTO 5 


C 

CHANGE ELEVATION ANGLE 

0084 


120 

IF ( CHNG . NE . 'E ' ) GOTO 130 

0086 


122 

TYPE 123 

0087 


123 

FORMAT! '0'»T14, 'Eleuation Anale = ',$) 
?EAD(5,*,ERR=200)EANG 

0088 



0089 



IF! (EANG.LE.O) .OR. (EANG.GT.90) ) GOTO 200 

0091 



REANG=(PI/180. )*EANG 

0092 



GOTO 300 


C 

CHANGE BASE ALTITUDE 

0093 


130 

JF (Lririu.NE. 'B')GOTO 140 

0095 


132 

TYPE 133 

0096 


133 

FORMAT! '0 ', T14 , 'Base Altitude (KM) = ',$) 

0097 



READ (5 , * , ERR = 200 ) BEAT 

0098 



BSATF=3281 .#BSAT 

0099 



GOTO 300 

0100 


140 

IF (CHNG.NE. 'F ' ) GOTO 150 

0102 


142 

TYPE 143 

0103 


143 

FORMAT! 'O', T14, 'Base Altitude <Feet)= ',*) 

0104 



READ ( 5 , * , ERR=200 ) BSATF 

0105 



BSAT= . 0003048* BS A TF 

0106 



GOTO 300 


C 

CHANGE ALTITUDE RANGE OF DATA 

0107 


150 

IF(CHNG.NE. 'H') GOTO 160 

0109 


152 

TYPE 153 

0110 


153 

FORMAT! 'O', T14, 'Altitude Ranae of Data = ' 

0111 



READ ( 5 , * , ERR =200 ) Li’ I 

0112 



IF(LRI.LT.BSAT) GOTO 200 

0114 



TYPE 157 

0115 


157 

FORMAT! '+',T34, 'To ',$) 

0116 



READ (5,*, ERR =200) HR I 

0117 



IF (HRI .LE.LRI ) GOTO 200 

0119 



GOTO 290 


C 

CHANGE RANGE BINS 

0120 


160 

IF (CHNG.NE. 'N') RETURN 

0122 


162 

TYPE 163 

FORMAT! 'O', T14, 'Ranae Bir.s = ',*) 

0123 


163 

03 24 



READ'S, *,ERR=200)LBI 

0125 



TYPE 167 

0126 


167 

FORMAT! '+',T22, 'To ',*) 

0127 



READ ( 5 , * . £RR=200 )HB I 

0128 



IF(HBI.LE.LBI) GOTO 200 

0130 



REANG= ( PI/180. )?EANG 

0131 

C 

C 

C 


GOTO 295 


ERROR MESSAGES 

0132 

200 

TYPE 210 

0133 


210 

FORMAT!' ' , T 7 , '?? PARAMETER RANGE Eh.'HR ' ) 

0134 



GOTO 81 
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C 

C RANGE CALCULATIONS 

C 

0135 290 REANG.= ( PI/180. ) #EANG 

0136 DENOtt=SIN(REANG)*RG 

0137 LBI=IFIX( (LRI+(RG/2. I-BSAT) /DENOM > 

0138 HBI=IFIX((HRI+(1. 5*RG )-BSAT ) / DENOM ) 

0139 295 I F < HB I .GT.2000)HBI = 2000 

0141 I F ( LB I .LT. 1 )LBI = 1 

0143 300 LRI=FLOAT( ( (LBI*RG)-(RG/2. ) )#SIK(REANG)+BSAT) 

0144 HR! =FLOAT ( ( (HBI*RG)-(RG/2. ) )#SIN(REANG)+BSAT) 

0145 GOTO 5 
C 

0146 STOP 

0147 END 

■3 








; 
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Local Variables. .PSECT IDATA. Sizi « 000040 ( 16. words) 


Name 

CHNG 

J 

T yre 

Mi 

Offset 

mm 


Name 

DENOM 

Type 

R*4 

Offset 

000006 

Name 

I 

Type 

1*2 

Offset 

000014 

COMMON 

BlocK 

/DATTIM/, 

Size * 

000021 

( 

9. 

words ) 



Name 

IDATE 

T YPt 

LSI 

Offset 

000000 


Name 

ITIME 

T ype 

L*1 

Offset 

000011 

Name 

Type 

Offset 

COMMON 

BlocK 

/SETS 

/. 

Size > 

000006 

( 

3. 

words ) 



Name 

SETS 

Type 

1*2 

Offset 

000000 


Name 

PROFS 

T ype 

1*2 

Offset 

000002 

Name 

SHOTSP 

Type 

1*2 

Offset 

000004 

COMMON 

BlocK 

/LREPS 

/. 

Size 3 

000042 

( 

17. 

words ) 



Name 

LREP 

LBI 

BSATF 

PDEL 

Type 

R*4 

1*2 

Mi 

Offset 

000000 

000014 

Ms 


Name 

LRI 

HBI 

EANG 

Type 

R»4 

1*2 

R*< 

Offset 

000004 

000016 

000030 

Name 
HR I 

KU. 

T ype 

R«4 

8*.l 

Offset 

000010 

mm 

COMMON 

BlocK 

/CONST 

/, 

Size > 

000020 

( 

8 . 

words ) 



Name 

PI 

RG 

T ype 

R*4 

R*4 

Offset 

000000 

000014 


Name 

C 

T ype 
R*4 

Offset 

000004 

Name 

GATTIM 

T ype 

R*4 

Offset 

000010 


Local and COMMON Arrays! 


Name Type Sfction Offset Size Dimensions 

IDATE L*1 DATTIM 000000 000011 ( 3.) (9) 

ITIME L*1 DATTIM 000011 000010 ( 4.) (8) 


Subroutines! Functions. Statement and Prccessor-Def ined Functions! 


Name 

T ype 

Name 

T ype 

Name 

T ype 

Name 

T ype 

Name 

T ype 

BAKSCN 

R*4 

CLRSCN 

R*4 

DATE 

R*4 

FLOAT 

R*4 

FORSCN 

R*4 

I F I X 

1*2 

SIN 

R*4 

TIME 

R*4 






c 
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FORTRAN IV 


V02.5-5 


Tue 31-Har-03 14:56.’02 


SUBROUTINE CSTTUS - CURRENT STATUS 
D.VOELZ 


THIS SUBROUTINE DISPLAYS 1 HE CURRENT STATUS OF THE EXPERIMENT. 
ALSO DISPLAYED ARE THE CHARACTERISTIC DATA VALUES FOR THE LAST 
RECORDED PROFIlE. THE SUBROUTINE ALLOWS THE VALUES OF THE 
CURRENT SCAN AND PROFILE TO BE CHANGED. 

SUBROUTINE CSTTUS 

INTEGER SETS, PROFS, SHOTSP, CSET, CPROF, LSET, LPROF, CHNG 
>.K30,K60,K80,K100,SGP,TSGP 
REAL EANG.CLA 

LOGICAL#: I DATE ( 9 ) , I T I ME < 8 ) 

COMMON /DATTIM/ IDATE . ITIME 
COMMON /SETS/ SETS . PROFS , SHOTS? 

COMMON /STATS/ CSET . CPROF . LSET , LPROF 
COMMON /CALCS/ K30, K60, KBO, K 1 00 . SGP . TSGP , CLA 


DISPLAY CURRENT STATUS MENU 


0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0025 

0026 

0027 

0028 

0029 

0030 


5 CALL CLRSCN 
CALL BAKSCN 
TYPE 30 

CALL DATEi IDATE) 

TYPE 35 . ( IDATE ( I ) , I = 1 > 9 ) , SETS 
CALL TIHE(ITIHE) 

TYPE 40, ( I T I ME ( J) » J = 1 .8) 

CALL FCRSCN 
TYPE 45, CSET 
CALL BAKSCN 
TYPE 50, PROFS 
CALL FORSCN 
TYPE 55, CPROF 
CALL BAKSCN 
TYPE 60 

TYPE 65 , LSET , SHOTSP 

TYPE 70, LPROF 

TYPE 75 , K30 , K60 , K80, K 100 

TYPE 95, TSGP 

TYPE 100, SGP 

TYPE 105, CLA 

TYPE 110 

30 FORMAT! '+',T2. 'CURRENT STATUS 

+ ') 

35 FORMAT! 'O', T5.9A1 ,21X, 'Desired # Sets ' . 1 IX. . 16) 
40 FORMAT! ' '.T3.0A1 .$> 
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0034 45 FORMAT! '♦', T20, '<CS> Currant Set ' . 12X. , 16) 

0035 50 FORMAT ( ' ' , T35 , 'Prof i 1 es Per Set '.9X.'»',IA) 

0036 55 FORMAT (' ',T31,'<CP> Current Prof i le 9X, ',I6> 

0037 60 f i)RMA T ( '0',T2, 'LAST RECORDED PROFILE - 

+ --- ') 

0030 65 FORMAT ( '0' ,T3, 'Set I ',14, 16X, 'Laser Shots Per Profile 

+ .16) 

0C39 70 FQRMAT(' ' . T5. 'Prof i le # '. 14. 16X. 'Detected Photons! ') 

0040 75 FORMAT (' ' , T50, 'at 30 K« ' , 3X , '« ' , 16 . /T47. '60 - 80 Ka',3X, 

♦ , I6./T47, '80 - 100 Km'. 3X. '='»I6»/T46. '100 - 120 Ka',3X, 

♦ , 16) 

0041 95 FORMAT ( ' '.T33, 'Total Signal Photons = .16) 

0042 100 FORMAT ( ' ' , T35 , 'Sisna 1 Photons Per Shot =',Io) 

0043 105 FORMAT! ' ' . T35. 'Column Abundance Ratio ='»F6.2) 

0044 110 FORMAT! '0 ' »T2. 'To change the r urrent Set or Profile values first 

+ enter t!;e '. /T2 . 'corresponding LETTERS then RETURN '.!) 

C 

C GET RESPONSE 

C — 

0045 READ! 5, 150, ERF. "5) CHNC 

0046 150 FORMAT ( A2 ) 

C 

C CHECK RESPONSE AND CHANGE VALUES 

C - 

CALL FORSCN 
C CHANGE CURRENT SET 

155 IFfCHNG.NE. 'CS ' ) GOTO 170 
160 TYPE 162 

162 FORMAT! 'O', T14, 'Current Set = ',») 

READ! 5, e ,ERR=200)CSET 
IF (CSET.LE.O)GOTO 200 
GOTO 5 

C CHANGE CURRENT PROFILE 
170 IHCHNG^NE. 'CP')RETURN 

.73 FORMAT! 'O', T14, 'Current Profile = ',$) 

READ(5,«,ERR=200) CPROF 
IF (CPROF.LE.O. OR. CPROF.GT. PROFS) GOTO 200 
GOTO 5 

C 

C ERROR MESSAGES 

C - 

0064 200 TYPF 210 

0063 210 FORMAT!' ',T7,'?? PARAMETER RANGE ERROR') 

0066 GOTO 155 

0067 STOP 

0068 END 


0047 

0048 

0050 

0051 

0052 

0053 
0055 

m 

0059 

0060 
0061 
0063 
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Local Variables. .PSECT 

JDATA , 

Size = 

000020 ( 8. words) 


Name 

CHNG 

J 

Type 

1*2 

1*2 

Offset 

000004 

000016 


Name 

EANti 

Type 

R*4 

Offset Name 

000010 I 

T ype 
1*2 

Offset 

000014 

COMMON 

B1 ocK 

/DATTIM/ , 

Size = 

000021 

( 9. words) 



Name 

IDATE 

T yrc 
L*1 

Offset 

000000 


Name 

I TIME 

T ype 

L* 1 

Offset Name 

000011 

T ype 

Offset 

COMMON 

BlocK 

/SETS 

/, 

Size * 

000006 

< 3. words) 



Name 

SETS 

T ype 
1*2 

Off set 
000000 


Name 

PROFS 

T ype 

1*2 

Offset Name 

000002 SHOTSP 

T ype 

1*2 

Offset 

000004 

COMMON 

BlocK 

/STATS 

/, 

Size = 

000010 

( 4. words) 



Name 

CSET 
l PROF 

Type 

1*2 

1*2 

Offset 

000000 

000006 


Name 

CPROF 

Type 

1*2 

Offset Name 

000002 LSET 

T ype 

1*2 

Gf f set 
000004 

COMMON 

BlocK 

/CALCS 

/. 

Size = 

000020 

( 8. words) 



F me 

■t JO 
k r oo 

CLA 

Type 

I >2 

*2 

. *4 

Offset 

000000 

000006 

000014 


Name 

K60 

SGP 

T ype 

i«2 

1*2 

Offset Name 

000002 K80 

000010 TSGP 

T ype 

1*2 

1*2 

Offset 

000004 

000012 


Local and COMMON Arrays.' 


Name 

Type 

Sect lor. 

Offset -Size- 

Dimensions 


IDATE 

L* 1 

DATTIM 

000000 000011 ( 5.) 

(9) 


ITIME 

L* 1 

DATTIM 

000011 000010 ( 4.) 

(8) 


Subroutines. 

Functions > 

Statement and Processor- 

-Defined Functions.' 

Name 

Type 

Name Ty^e Name T.pp Name 

Type Name 

T y.’e 


BAKSCN R*4 CLRSCN P*4 DATE R*4 FORSCN R*4 TIME R*4 
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C **************************************** 

c 

C SUBROUTINE LAALN. FOR •* LOW ALTITUDE ALIGNMENT ROUTINE 
C D.V0EL2 

C 

C «**4***************4***************4 »*** 

c 

C THIS SUBROUTINE INITIATES A LOW ALTITUDE ALIGNMENT DATA 
C RUN. 

C 

0001 SUBROUTINE LAALN 

0002 REAL REPR3 

0003 INTEGER SH0TS3, MSHGTS , REPNUh , BCNT , BNMBR, LDATA (2100 ) 

0004 L0GICAL*1 IDATE(9) » I T I ME ( 8 ) 

0005 SYTE RUNFLG , DFLAG , ERRFLG, MON, JCHAR , OPT 
C 

0006 COMMON/DATTIM/ IDATE .ITIME 

0007 COMMON/LAAN/ REPR3.SH0TS3 

0008 COMMON/FLAGS/ RUNFLG, DFLAG, ERRFLG 

0009 COMMON/SEND/ REPNUM,MSHOTS 

1010 ^ COMMON/BUFF/ LDATA 

C TYPE LOW ALTITUDE ALIGNMENT ROUTINE SCREEN 
C 

5 CAlL CLRSCN 
CALL BAKSCN 
CALL DAT£( IDATE) 

CALL TIME( ITIME) 

TYPE 20, (IDATE (I), 1 = 1, 9), (ITIME (J) ,J = 1, 8) 

CALL FORSCN 
TYPE 22 , SH0TS3 
TYPE 24 , REPR3 
CALL BAKSCN 
TYPE 26 
TYPE 30 

20 FORMAT ( ' ',/,T25,'L0W ALTITUDE ALIGNMENT ROUTINE ',/, /T35 
>, 9A1 , /T35 , 8A1 , //) 

22 FORMAT ( ' ',T10,'<L> Laser Shots Per Profile = ',14 

>, ' ') 

24 FORMAT ( ' ',T10.'<R> Laser Rep Rate = '.F4.1 

+ . ' Hz', ' ') 

26 FORMAT! ' ',//,T5,'To chanse any parameter value enter the corres 
+pondina LETTER ', /T5 , 'and then RETURN') 

30 FORMAT ( ' ',//,T5,'To beain the alianment routine press "Y" 

4 then RETURN ',$) 

C GET4 CHLLK RESPONSE 

READ(5,80,ERR = 5) OPT 

80 FORMAT (Al) 

C 

CALL FORSCN 

C CHANGE LASER SHOTS PER PROFILE 

81 IF(OPT.NE. 'L') GOTO 90 


0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 


0027 

0028 

0029 

0030 
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0032 TYPE 85 

0033 85 FORMAT! 'O'.TIO, 'Laser Shots Per Profile = M) 

0034 READ ( 5 » » » ERR=200 ) SH0TS3 

0035 IF(SHOT53.LE.O)GGTO 200 

0037 GOTO 5 

C CHANGE LASER REP RATE 

0038 90 IF(QPT.NE. 'R') GOTO 100 

0040 TYPE 95 

0041 95 FORMAT( 'O', T10, 'Laser Rep Rate = ',*) 

0042 READ(5,*»ERR=200)REPR3 

0043 IF( (REPR3.LE.0.0) .OR. (REPR3.GT. 10.0) ) GOTO 200 

0045 GOTO 5 

C ======================================== 

C LON ALTITUDE ALIGNMENT RUN 
C ======================================== 

0046 100 IFIOPT.NE. 'Y ' ) RETURN 

0048 CALL BAKSCN 
C 

C PARAMETER CALCULATIONS 
C 

0049 KSH0TS=SH0TS3 

0050 R£PNUM=IFIX( (SORT ( ( 1 .02046*1 .E6/REPR3-57251 . )*4. /15.+ 
X 5.4§5.4) 1-5.4) /2.+. 5) 

C 

C :NIT FLAGS 4 START PROFILE RUN 

c 

0051 121 DFLAG=0 

0052 ERRT LG=0 

0053 CALL SNDCOM 
C 

C GET DATE AND TIME 
C 

0054 CALL TIME ( ITIME ) 

0055 CALL DATE(IDATE) 

C 

C NAIT FOR PROFILE 
C 

0056 130 ICHAR=ITTINR( ) 

0057 JCHAR= ICHAR 

0058 IF(JCHAR.EQ. 'S') GOTO 180 

0060 IF(DFLAG.NE, 1 )GOTO 130 

0062 IF (ERRFLG EQ.DGOTO 180 
C 

C DISPLAY 
C 

0064 DO 160 K = 1 ,3 

0065 TYPE 1 35 ,(I DATE (I), 1 = 1, 9), K, (ITIME (I), 1 = 1, 8) 

0066 135 FORMAT ( ' ' ,T5,9A1 ,25X. 12. /T5.8A1 ) 

0067 BCNT=1+200*(K-1) 

0063 DO 150 J=1 ,20 

0069 BNMBR = BCNT+10*( J-l ) 

0070 TYPE 140.BNMBR, (LDATA(I) ,I=BNMBR,BNMBR+9) 

0071 140 FORMAT ( ' ' , 15, '- ' , 1016) 

0072 150 CONTINUE 
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0073 PAUSE 

0074 160 CONTINUE 

0075 163 TY *E 165 

0076 165 FP?NAT(' 'i//»T19»'Do you want to run tne Routine 

> aiiain ? '»*) 

0077 READ(5> 1 70 f ERR =163) MON 

0078 170 FORMAT(Al) 

0079 IF(MON.EQ. 'Y')GQTO 120 

r 

0081 " 180 RETURN 

C 

C 

C ERROR MESSAGES 

C 


0082 

200 

TYPE 210 

0083 

210 

FORMAT (' ' » T7, '?? PARAMETER RANGE ERROR') 

0084 

p 

GOTO 81 

0085 

L 

STOP 

0086 


END 
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Local Variablesr .PSECT $DATA. Size s 000046 ( 19. words) 


Name 

BCNT 

ICHAR 

K 

T ype 
1*2 
1*2 
1*2 

Offset 

000014 

000030 

000032 


Name 

BNMBR 

J 

MON 

T r»e 
1*2 
1*2 
L*i 

Offset 

000016 

0C0026 

000020 

Name 

I 

JCHhR 

OPT 

T ype 
1*2 
L*1 
L*1 

Offset 

000024 

000021 

000022 

COMMON 

Block 

/DATTIM/, 

Size = 

000021 

( 

9. 

words ) 



Name 

IDATE 

T ype 
L*1 

Offset 

000000 


Name 

ITIME 

T ype 
L*1 

Offset 

000011 

Name 

T ype 

Offset 

COMMON 

Block 

/LAAN 

/, 

Size * 

00. “006 

i 

3. 

words ) 



NaMe 

REPR3 

T yre 

R*4 

Offset 

000000 


Name Type 

FH0TS3 1*2 

Offset 

000004 

Name 

T ype 

Offset 

COMMON 

Block 

/FLAGS 

/, 

Size = 

COOOO? 

( 

2. 

words ) 



Name 

RUNFLG 

T ype 
L*1 

Offset 

000000 


Name 

DF‘ AG 

T ype 

1*1 

Offset 

000001 

Name 

ERRFLG 

T ype 
L*1 

Offset 

000002 

COMMON 

Block 

/SEND 

/, 

Size = 

000004 

( 

2. 

words ) 



Name 

REPNUM 

T ype 
1*2 

Offset 

000000 


Name Type 

MSHOTS 1*2 

Offset 

000002 

Name 

Type 

Offset 

COMMON 

Block 

/BUFF 

/, 

Size = 

010150 

( 2100. 

words) 



Name 

LDATA 

T ype 
1*2 

Offset 

000000 


Name 

T ype 

Offset 

Name 

T ype 

Offset 


Local and COMMON Arrays! 

Name Type Section Offset Size Dimensions 

IDATt L*1 DATT1M 000000 000011 ( 5.) (9) 

ITIME L*1 DATTIM 000011 000010 ( 4.) (8) 

lDATA 1*2 BLTF 000000 010150 ( 2100.) (2100) 


Subroutines. r unctions. Statement and Processor-Defined Functions.' 


Name 

T ype 

Name 

T ype 

Name 

T ype 

Name 

T ype 

Name 

T ype 

BAKSCN 

R*4 

CLRSCN 

R*4 

DATE 

R*4 

FORSCN 

R*4 

I F I X 

1*2 

ITTINR 

1*2 

SNDCOM 

R*4 

SORT 

R*4 

TIME 

R*4 
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c 

C SUBROUTINE ALNRTN. FOR - SODIUM ALIGNMENT ROUTINE 
C D.VOELZ 

C 

C *#ft*#*«*tt*#««#t*t**#***#*#*«#***#**ft*ftff 

c 

C THIS SUBROUTINE INITIATES A SODIUM ALIGNMENT DATA 
C RUN. 

C 

0001 SUBROUTINE ALNRTN 

0002 REAL REPR4,LREP,LRIfHRI,BSAT,EANGfPIfC,GATTIH,RG,REANG 
>»DENOM»BSATF 

0003 INTEGER REPNUM , SH0TS4 ,MSHOTS,LBI , HBI , INTSIZ.RECSIZ, B30 
>iB60t S20» PDEL 

0004 L0GICAL*1 IDATE(9) . ITIME(B) 

0005 BYTE RUNFLG r DFLAG » ERRFLG f HON , JCHAR » OPT 
C 

0006 COMMON/PTERS/ B30,B60,S20 

0007 COMMON/LREPS/ LREP,LRI ,HRI ,LBI ,HBI .BSAT.BSATF.EANG, 

>REANG» PDEL 

0008 COMMON/DATTIM/ IDATEf ITIME 

0009 COMMON/ALN/ REPR4.SH0TS4 

0010 COMMON/FLAGS/ RUNFLG f DFLAG » ERRFLG 

0011 COMMON/SEND/ REPNUM, MSHOTS 

0012 COMMON/CONST/ PI ,C,GATTIM,RG 
C 

C TYPE SODIUM ALIGNMENT ROUTINE SCREEN 
C 

5 CALL CLRSCN 
CALL BAKSCN 
CALL DATEUDATE) 

CALL TIME( ITIME) 

TYPE 20. (IDATE(I). 1=1.9) , ( ITIME! J) f J=1 ,8) 

CALL FORSCN 
TYPE 22 ,SH0TS4 
TYPE 24,REPR4 
CALL BAKSCN 
TYPE 26 
TYPE 30 

20 FORMAT ( ' ',/, T28, 'SODIUM ALIGNMENT ROUTINE /T35, 9A1 , /T35 

> F 8A1 F // ) 

22 FORMAT ( ' ',T10,'<L> Laser Shots Per Profile = ',14 

>, ' ') 

24 FQRMATi; ',T10,'<R> Laser Rep Rate = ',F4.1 

26 FORMAT!' 'f//fT5f'To chan9e any parameter value enter the corres 
♦pondina LETTER /T5, 'and then RETURN') 

30 FORMAT!' ',//,T5f'To beain the alian«ent routine press "Y" 

+ then RETURN ',*) 

C GET & CHECK RESPONSE 
C RE AIM 5 , 8(M ERR =5^" OPT* 


0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 


0026 

0027 

0028 


0029 
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0030 80 FORMAT(Al) 

C 

003! CALL F0R3CN 

C CHANGE LASER SHOTS PER PROFILE 
0032 81 IF(OPT.NE. 'L ' ) GOTO 90 

0034 TYPE 85 

0035 85 FORMAT! '0 ' »T10» 'Laser Shots Per Profile = '.$) 

0036 READ ( 5 » * . ERR =200 ) SH0TS4 

A C37 IF ( SH0TS4. LE.O)GOTO 200 

0039 GOTO 5 

C CHANGE LASER REP RATE 

0040 90 IF(QPT.NE. 'R ' ) GOTO 100 

0042 TYPE 95 

0043 95 FORMAT! 'O', T10, 'Laser Rep Rate = ',*) 

0044 READ(5,*» ERR=200)REPR4 

0045 I F ( (REPR4.LE.0.0) .OR. (REPR4.GT. 10.0) ) GOTO 200 

0047 GOTO 5 

c "sodium'alignment'run"" 

0048 100 IF(OPt’nE^y')'rETURN " 

0050 CALL BAKSCN 

0051 RUNFLG=3 
C 

C PARAMETER CALCULATIONS 
C 

0052 DENOM=SIN(REANG)*RG 

0053 830= IFIX f J0.+(RG/2)-BSAT)/DEN0M+.5) 

0054 B60=IFIX( (60 . -MRG/2 > -BSAT) /DENOM+ . 5) 

0055 S20=IFIX( (20.+(RG/2) 1/DEN0M+.5) 

0056 MSH0TS=SH0TS4 

0057 REPNUM=IFIX((SQRT((1 .02046*1 .E6/REPR4-57251 . )*4. /15.+ 
>(5.4*5. 4) )-5.4)/2.+.5) 

C 

C INIT FLAGS & START PROFILE RUN 
C 


0058 


120 DFLAG=0 

0059 


ERRFLG=0 

0060 

p 

CALL SNDCOM 


L 

c 

p 

GET DATE AND TIME 

0061 

L 

CALL TIME < ITIME > 

0062 

p 

CALL DATE ( IDATE) 


L 

c 

p 

WAIT FOR PROFILE 

0063 

Lr 

130 ICHAR=ITTINR( ) 

0064 


JCHAR= ICHAR 

0065 


IF( JCHAR.EQ. 'S') GOTO 160 
IF(DFLAG.NE. 1 )GOTO 120 

0067 


0069 


IF ( ERRFLG.EQ. 1 )GOTO 160 

0071 

c 

CALL DISCAL 
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0072 


135 TYPE 140 

0073 


140 FORMAT!' './/»T19r'Do you want to run the Routine 



> asain ? '.$) 

0074 


READ! 5 » 145»ERR= 135 )M0N 

0075 


145 FORMAT (A1 ) 

0076 

P 

IF(M0N.EG. 'Y ' )G0T0 120 

0078 

L 

c 

r. 

160 RETURN 


L 

c 

ERROR MESSAGES 

0079 

L 

200 TYPE 210 

0030 


210 FORMAT! ' ST7,'?? PARAMETER RANGE ERROR') 

0081 

r 

GOTO 81 

0082 

L 

STOP 

0083 


END 
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Local Variables* .PSECT 

(DATA, 

Size = 

000060 

( 24. words) 


Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

DENOM 

R*4 

000006 


I 

1*2 

000022 

ICHAR 

1*2 

000026 

INTSIZ 

1*2 

000012 


J 

1*2 

000024 

JCHAR 

L*1 

000017 

MON 

L*1 

000016 


OPT 

L*1 

000020 

RECSIZ 

1*2 

000014 

COMMON 

BlocK 

/PTERS 

/, 

Size = 

000006 

( 3. 

words ) 



Na«e 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

B30 

1*2 

000000 


B60 

1*2 

000002 

S20 

1*2 

000004 

COMMON 

BlocK 

/LREPS 

/, 

Size = 

000042 

( 17. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

Type 

Offset 

LREP 

R«4 

000000 


LRI 

R*4 

000004 

HR I 

R*4 

000010 

LBI 

1*2 

000014 


HBI 

1*2 

000016 

BSAT 

R*4 

000020 

BSATF 

R*4 

000024 


EANG 

R*4 

000030 

REANG 

R*4 

000034 

PDEL 

1*2 

000040 








COMMON 

Block 

/DATTIM/, 

Size = 

000021 

( 9. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

IDATE 

L*1 

000000 


ITIME 

L*1 

000011 




COMMON 

Block 

/ALN 

/, 

Size = 

000006 

( 3. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

REPR4 

R*4 

000000 


SH0TS4 1*2 

000004 




COMMON 

Block 

/FLAGS 

/, 

Size = 

000003 

( 2. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

RUNFLG 

L*1 

000000 


DFLAG 

L*1 

000001 

ERRFLG 

L*1 

000002 

COMMON 

Block 

/SEND 

/, 

Size = 

000004 

( 2. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

REPNUH 

1*2 

000000 


MSHOTS 1*2 

000002 




COMMON 

Block 

/CONST 

/, 

Size = 

000020 

( 8. 

words ) 



Name 

T ype 

Offset 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

PI 

R*4 

000000 


C 

R*4 

000004 

GATTIM 

R*4 

000010 

RG 

R*4 

000014 









Local and COMMON Arrays! 


Name Type Section Offset Size Dimensions 

1DATE L#1 DATTIM 000000 000011 ( 5.) (9) 

ITIME L*1 DATTIM 000011 000010 ( 4.) (8) 


ORIGINAL PAGE IS 
OF POOR QUALITY 


FORTRAN IV Storage Map for Program Unit ALNRTN 


Subroutines, Functions, Statement and Processor-Defined Functions! 


Name 

T ype 

Name 

T y pe 

Name 

T ype 

Name 

T ype 

Name 

T ype 

BAKSCN 

R«4 

CLRSCN 

R«4 

DATE 

R«4 

DISCAL 

R*4 

FORSCN 

R*4 

I F I X 

I#2 

ITTINR 

1*2 

FIN 

R#4 

SNDCOM 

R#4 

SORT 

R*4 


TIME R«4 


139 
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C 

C SUBROUTINE DATRUN - DATA RUN 
C D.VOELZ 

C 

C a***#*##*#*###**##########*#########*** ***«*t***«4 

c 

C THIS SUBROUTINE INITIATES A DATA RUN (WHICH CONSISTS 
C OF A SET OF PROFILES). 

C 

0001 SUBROUTINE DATRUN 

0002 LOGICALtl IIDATE(9) » I T I ME ( 8 ) 

0003 REAL LREP.LRI .HRI . BSAT . EANG. C. GATTIM.RG. PI .REANG. DENOM. BSATF 

0004 INTEGER SETS . PROFS . SHOTSP » CSET , CPROFr LSET .LPROF.HBI .LB I 
>, INTSIZ,RECSIZ,B30,B60,S20,REPNUM,MSH0TSrMN.DAY,YR,HDRB 
>.BINS.LDATA(2100) . PDEL 

0005 INTEGERM TIM2 , T I HL . TIMH , STIM , DTIN 

0006 BYTE OPT . MON . RUNFLG » FNAME ( 15) .-EXT (3) . DFLAG.ERRFLG 
>. JCHAR 

C 

0007 COMMON /DATTIM/ 1 1 DATE. IYiME 

0008 COMMON /DISK/ INTSIZ,RECSIZ,FNAME 

0009 COMMON /PTERS/ B30,B60,S20 

0010 COMMON /LREPS/ LREP.LRI ,HRI ,LBI .HBI rBSAT. BSATF. EANG. 

>REANG . PDEL 

0011 COMMON /SETS/ SETS . PROFS , SHOTSP 

0012 COMMON /FLAGS/ RUNFLG , DFLAG , ERRFLG 

0013 COMMON /SEND/ REPNUM. MSHOTS 

0014 COMMON /STATS/ CSET.CPROF,LSET,LPROF 

0015 COMMON/CONST/ PI .C.GATTIM.RG 

0016 COMMON/BUFF/LDATA 
C 

0017 HDRB=9 

0018 BINS=HBI-LBI+1 

0019 RECSIZ= (BINS+HDRB+1 ) /2 

0020 INTSIZ=IFIX( FLOAT ( PROFS) * (BINS+HDRB ) /256. +1.1) 

C 

C TYPE DATA RUN SCREEN 
C 

0021 5 CALL CLRSCN 

0022 CALL DATE(IIDATE) 

0023 CALL TIME ( ITIME ) 

0024 TYPE 20. (IIDATE(I) ,1=1 ,9) , (ITIME(J) ,J=1,8) 

0025 TYPE 25rRECSIZ> INTSIZ 

0026 TYPE 30 

0027 20 FORMAT ( ' './, T35 , 'DATA RUN ',/, /T35 , 9A1 , /T35, BA1 .// ) 

0028 25 FORMAT!' '»/,T5»'Disk Paraae ters ‘ /T8 . 'Records ize = '.14 

>»/T8»'Set BlocKsize = '.14./) 

0029 30 FORMAT!' './/.T5»'Ta be9in a Data Run press "Y" then RETURN ' 

>,$) 

C GET & CHECK RESPONSE 

0030 ’ REA6i5.86,ERR.5)'6pJ 



0 
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0031 80 FORMAT (Al) 

0032 IF(0PT.NE. 'Y ' ) RETURN 

C DATA RUN 

C 3333333333333333333333333333333:33333331 

0034 RUNFLG=1 
C 

C UPDATE SET FILE NAME 

C 

0035 ENCODE (3 : 100:EXT)CSET 

0036 100 FORMAT (13) 

0037 DO 105 1=1,3 

0038 FNAME ( 7+1 ) = '0 ' 

0039 105 IF ( EXT ( I ) .NE . ' ' )FNAME(7+I )=EXT < I ) 

C 

C PARAMETER CALCULATIONS 

r 

0041 “ CALL JICVT(PDEL.DTIM) 

0042 DTIM=60*DTIM 

0043 DENOM=SIN(REANG)#RG 

0044 B30=IFIX( (30.+(RG/2. )-BSAT ) /DENOM+ . 5 ) 

0045 B60=IFIX ( (60.+(RG/2. )-BSAT ) /DENOM+ . 5 ) 

0046 S20=IFIX((20.+(RG/2. > J/DEN0H+.5) 

0047 MSH0TS=SH0TSP 

0048 REPNUM=IFIX( (SORT ( ( 1 .02046# 1 .0E6/LREP-57251 . >*4./15.+ 
>(5.4#5.4))-5.4)/2-+.5) 


0049 

0050 

0051 
0032 
0053 


START DATA RUN 


LSET=CSET 

PRINT 115.CSET, (IIDATE(I) . 1*1 .9) . (ITIHE(I) .1=1 .8) 

1 15 FORMAT ( ' ' : T14 : 'SET # M4 , 1 1X.9A1 . 1 lXrBAl ) 

REMIND 6 

OPEN ( UNI T=3: TYPE 2 'NEW ' » INITIALSIZE=INT5IZ iRECQRDSIZE=RECSIZ 
>:NAME=FNAMEr ACCESS 2 'DIRECT ' ,FORM= 'UNFORMATTED ' ) 

INIT FLAGS & START PROFILE RUN 


0054 


120 DFLAG=0 

0055 


EPRFLG=0 

0056 

P 

CALL SNDCOM 


L 

c 

p 

GET TIME AND DATE 

0057 

L 

125 CALL GT I M ( T I M2 ) 

0058 


CALL IDATE(MN»DAY: YR) 

0059 


CALL TIMASC(TIM2r I TIME) 

0060 

p 

CALL DATE(IIDATE) 


L 

r 

p 

HAIT FOR PROFILE 

0061 

L 

130 ICHAR=ITTINR( ) 

0062 


JCHAR=ICHAR 

0063 


IF( JCHAR.EQ. 'S') GOTO 193 


0KI9INAL FACE 53 
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0065 IF (DFLAG.NE. 1 )G0TQ 130 

0067 IF (ERRFLG.EQ. 1 )G0T0 200 

0069 CALL DISCAL 

0070 WRITE(3 'CPROF ) BINS , LBI ,CSET , CPROF , MN, DAY, YR, TIM2 
>. ( LDAT A ( K ) # K = LBI »HBI ) 

C 

C UPDATE & CHECK COUNTERS 
C 

0071 LPROF s CPROF 

0072 CPR0F=CPR0F+1 

0073 IF(CPROF.GT.PROFS)GOTO 140 
C 

C INTER-PROFILE DELAY 


0075 


CALL GTIM(TIML) 

0076 


CALL JJCVT(TIML) 

0077 


135 CALL GTIM(IIMH) 

007B 


CALL JJCVT(TIMH) 

0079 


CALL JSIJB ( TIMH . T IML > STIM) 

0080 


IF(STIM.LT.0)TIM2=0 

0082 

P 

IF(DTIM.GT. STIM) GOTO 135 

0084 

L 

DFLAG=0 

0085 


ERRFLG=0 

0086 


CALL SNDDTR 

0087 

p 

GOTO 125 


L 

c 

p 

SET COMPLETED 

0088 

L 

140 CLOSE ( UNIT=3) 

0089 


CSEf=CSET+l 

0090 


CPROF = 1 

0091 


CALL FORSCN 

0092 


TYPE 150.LSET 

0093 


CALL EAKSCN 

0094 


PAUSE 'Press RETURN to c 

0095 


145 RETURN 

0096 


150 FORMAT ( ' ' SET « M 


ssss:x:::s3s3sr:ss:::9s8rir.ctsti!istsiii 

PROFILE ERROR 

CLEAR 'S' CHARACTER FROM KEYBOARD 
195 READ(5,B0) OPT 

ERROR ROUTINE 
200 CALL CLRSCN 
TYPE 210 

210 FORMAT ( ' '»/////» T1 1 , 'Do you want to close out the current 
> Data Set on disK ? ' .$) 

READ ( 5 > 80 ) OPT 

IF (OPT. EG. 'Y'> GOTO 140 

TYPE 220 

220 FORMAT ( ' ' ,//,T27. 'Press RETURN to try aaain ',») 

READ (5.80) OPT 
GOTO 120 
END 


URIvittfiAL PACE IS 
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FORTRAN IV Storaae Hap for Pro9raa Unit DATRUN 


Local Variables, .PSECT 

•DATA, 

Size = 

Naae 

T YPC 

Offset 


Name 

Type 

BINS 

1*2 

000034 


DAY 

1*2 

DTIH 

1*4 

000056 


HDRB 

1*2 

ICHAR 

1*2 

000072 


J 

1*2 

K 

1*2 

000074 


MN 

1*2 

OPT 

1*1 

000062 


STIM 

1*4 

TIML 

1*4 

000042 


TIM2 

1*4 

COMMON 

BlocK 

/DATTIM/, 

Size * 

000021 

Na«e 

T ype 

Offset 


Name 

Type 

IIDATE 

L*1 

000000 


I TIME 

L*1 

COMMON 

BlocK 

/DISK 

/, 

Size = 

000023 

Nai.e 

Type 

Offset 


Naae 

T ype 

INTSIZ 

1*2 

000000 


RECSIZ 

: 1*2 

COMMON 

BlocK 

/PTERS 

/, 

Size * 

000006 

Naae 

Type 

Offset 


Naae 

Type 

B30 

1*2 

000000 


B60 

1*2 

COMMON 

BlocK 

/LREPS 

/, 

Size = 

000042 

Name 

Type 

Offset 


Name 

Type 

LREP 

R*4 

000000 


LRI 

R*4 

LBI 

1*2 

000014 


HBI 

1*2 

BSATF 

R*4 

000024 


EANG 

R*4 

PDEL 

1*2 

000040 




COMMON 

BlocK 

/SFTS 

/. 

Size = 

000006 

Naae 

T ype 

Offset 


Naae 

T ype 

SETS 

1*2 

000000 


PROFS 

1*2 

COMMON 

BlocK 

/FLAGS 

/, 

Size * 

000003 

Naae 

T ype 

Gff set 


Naae 

T ype 

RUNFLG 

L*1 

000000 


DFLAG 

L*1 

COMMON 

BlocK 

/SEND 

/, 

Size » 

000004 

Naae 

T ype 

Offset 


Naae 

T ype 

REPNUM 

1*2 

000000 


MSHOTS 1*2 

COMMON 

BlocK 

/STATS 

/, 

Size * 

000010 

Naae 

;'ype 

Offset 


Naae 

Type 

CSET 

1*2 

OuOOOO 


CPROF 

1*2 

LPROF 

1*2 

000006 





000136 

( 47. words) 


Offset 

000026 

000037 

000070 

000024 

000052 

000036 

Naae 

DENOM 

I 

JCHAR 

MON 

TIMH 

YR 

T ype 
R«4 

1*2 

L*1 

L*1 

1*4 

1*2 

Offset 

000020 

000066 

000064 

000063 

000046 

000030 

( 9. 

words ) 



Offset 

000011 

Naae 

T ype 

Offset 

( 10. 

words ) 



Offset 

000002 

Naae 

FNAME 

T ype 
L*1 

Offset 

000004 

< 3. 

words) 



Offset 

000002 

Naae 

S20 

T ype 

1*2 

Off si. 
000004 

( 17. 

words ) 



Offset 

000004 

000016 

000030 

Naae 

HR I 

BSAT 

REANG 

T ype 
R*4 
R*4 
R«4 

Offset 

000010 

000020 

000034 

( 3. 

words ) 



Offset 

000002 

Naae 

SHOTSP 

T ype 

1*2 

Offset 

000004 

( 2. 

words ) 



Offset 

000001 

Naae 

ERRFLG 

T ype 

L*1 

Offset 

000002 

( 2. 

words ) 



Offset 

000002 

Naae 

T ype 

Offset 

( 4. 

words ) 



Offset 

000002 

Naae 

LSET 

T ype 

1*2 

Offset 

000004 


ORIGINAL PAGE 5L 
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FORTRAN IV Storaae Map for Prosram Unit DATRUN 


COMMON 

Block 

/CONST /, 

Size » 

000020 

! B. 

words ) 



Name 

PI 

RG 

T ype 

R*4 

R*4 

Offset 

OOOOOO 

000014 

Name 

C 

T ype 
R«4 

Offset 

000004 

Name 

GATTIM 

T ype 

R*4 

Offset 

000010 

COMMON 

Block 

/BUFF /, 

Size * 

viOlSO 

( 2100. 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

Type 

Offset 


L DATA 1*2 OOOOOO 
Local and C0.1M0N Arrays! 

Name Type Section Offset Size Dimensions 

EXT L*1 IDATA COOOOO 000003 ( 2.) (3) 

FNAME L*1 DISK 000004 000017 ( 8.) (15) 

IIDATE L*1 DATTIM OOOOOO 000011 ( 5.) (9) 

ITIME L* 1 DATTIM 000011 000010 ( 4.) (8) 

LDATA 1*2 BUFF OOOOOO 010150 ( 2100.) (2100) 


Subroutines, Functions' Statement and Processor-Defined Functions! 


Name 

T ype 

Name 

T ype 

Name 

T ype 

Name 

T ype 

Name 

T ype 

BAKSCN 

R*4 

CLRSCN 

R*4 

DATE 

R*4 

DISCAL 

R*4 

FLOA T 

R*4 

FORSCN 

R*4 

GTIM 

R*4 

IDATE 

1*2 

I F I X 

1*2 

ITTINR 

SNDCOM 

& 

JICVT 

1*2 

JJCVT 

1*2 

JSUB 

1*2 

SIN 

R*4 

SNODTR 

R#4 

SORT 

R* 1 

TIMASC 

R*4 

TIME 

R*4 




0RIG*NA». PAGE 15 

OF POOR QUALITY 
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III. 8 EXMPRF 


FORTRAN IV V02.5-5 Tue 31-May-83 15:18147 PAGE 001 

C ft*************************************** 

c 

C SUBROUTINE EXMPRF - EXAMINE PROFILE 
C D.VOELZ 

C 

C *####**##*#**«#*****#*#*********«»**«*** 

c 

C THIS SUBROUTINE DISPLAYS A SELECTED PROFILE 
C FROM THE DATA DISK ON THE TERMINAL AND PRINTER. 

C 

0001 SUBROUTINE EXMPRF 

0002 INTEGER DSET » DPRQF . B INS , L3 I , CSET . CPROF , MN , DAY , YR 
>,LDATA(2100),HDRB.NXTL,LSTL,ICNT,BCNT,BNMBR,INMBR 
>»LNMBR» INTSIZ,RECSIZ 

0003 INTEGER*4 TIM2 

0004 LQGICAL*1 ITIME(B) 

0005 BYTE FNAME (15) fEXT (3) »MON 
C 

0006 COMMON/BUFF/ LDATA 

0007 COMMON/DISK/ INTSIZ,RECSIZ, FNAME 
C 

0008 HDRB=9 

C====*= =============== ========= 

C RESPONSES 

0 ============================== 

0009 CALL CLRSCN 

0010 TYPE 15 

0011 TYPE 20 

0012 READ (5 i*) DSET 

0013 IF (DSET. EG. 0) RETURN 

0015 TYPE 30 

0016 READ(5,*)DPR0F 

0017 IF (DPRQF. EG. 0 ) RETURN 

0019 20 FORMAT ( ' ',T5.'5ET # ',♦) 

0020 15 FORMAT ( ' ' ,T32, 'EXAMINE PROFILE ' r III ) 

0021 30 FORMAT ( ' ' ,T5, 'PROFILE # ',$> 

C 

C SET FILE NAME 
C 

0022 ENCODE (3, 50, EXT) DSET 

0023 50 FORMAT (13) 

0024 DO 60 1=1,3 

0025 FNAME ( 7+1 ) = 'O' 

0026 60 IF(EXT ( I ) . NE. ' ' ) FNAME (7+ I )=EXT( I) 

C 

C DETERMINE RECORD SIZE 
C 

0028 0PEN(UNTT=3,TYPE= 'OLD ' , RECORDS I ZE= '2 ' , NAME = FNAME, ACCESS 5 
> 'DIRECT ' ,FORM= 'UNFORMATTED ' , ERR=200) 

0029 READ(3'1,ERR=210;BINS 

0030 CLOSE ( UNIT=3) 

003J RECSIZ= (BINS+HDR8+1 ) /2 

C 

C GET DATA 


I 
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0032 

C 

0PEN<UNIT=3, TYPE 2 'OLD', RECORDSIZE=RECSIZ, 
> 'DIRECT ' ,FCRM = 'UNFORMATTED ' ,ERR=200) 

0033 


READ (3 'DPROF , ERR =210 ) BINS , LBI , CSET ,CPROF, 
/.(LDATA(K),K=1,BINS) 

0034 

P-. 

CL0SE(UNI7=3‘ 


L - - 

c 

DISPLAY 


u- = 
C 

n 

r 

CONVERT TIME 

0035 

L 

CALL TIMASC ( T I M2 , IT IME ) 

0036 

p_. 

K = 0 


L 

c 

P- - 

DISPLAY ON TERMINAL 


L 

c 

c 

p 

SET UP PAGE 

0037 

L 

70 TYPE 75, CSET , MN,DAY* YR,K+1 

0038 


75 FORMAT ( ' ',' SET # ' , 14 , 4X, 12, '- ' , 12 

003V 


TYPE 77 iCPROF , ITIME 

0040 


77 FORMAT ( ' ',' PROFILE # ',I4,4X,BAD 

0041 


NXTL=20 

0042 


ICNT=1+20C*K 

0043 


bcnt 2 Lbi+:cnt-i 

0044 


IF ( ICNT+i99.GE.BINS)NXTL=(BINS-ICNT)/10 

0046 

p 

IF(NXTL.EQ.O)GOTO 120 


c 

p 

TYPE FULL LINES 

0048 

L 

DO 80 J=1 , NX1 L 

0049 


BNMBR=BCNT+10* ( J — 1 ) 

0050 


INMBR- TCNT+10* ( J-l ) 

0051 


LNM8R=ICNT+10*J-1 

0052 


80 TYPE 90,BNMBRi (LDATA( I ) , 1= INMBR , LNMBR) 

0053 


90 FORMAT ( ' ',15, '-',1CI6) 

0054 


IF ( NXTL . NE .20 ) GOTO 120 

0056 


K=K + 1 

0057 


PAUSE 

0058 

p 

GOTO 70 


L 

c 

p 

TYPE FINAL LINE 

0059 

L 

120 TYPE 130, BNMBR+10 

0060 


130 FORMAT ( ' ',15, 

0061 


DO 140 X=LNMBR+1 , BINS 

0062 


140 TYPE 150»LDATA(K ) 

0063 


150 FORMAT (17,4) 

0064 


TYPE 160 

0065 


160 FORMAT ( ' ') 

0066 

c- 

PAUSE 'LAST PAGE' 


PAGE 002 

NAME=FNAME, ACCESS 2 
MN,DAY, YR.TIM2 


, » 12 , 10X, 12 ) 


ORiQfttAL FAGI [G 
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C PRINT OUT 


0067 

c- 

165 TYPE 170 

0068 


170 FORMATC '0 ' » T20. 'Do you want a printout ? '»!) 

0069 


READ ( 5 > 175 • ERR = 1 65 ) MON 

0070 


175 FORMAT ( A1 ) 

0071 

p 

IF(M0N.NE. ' Y ' ) GOTO 190 


L 

c 

p 

SET UP PAGE 

0073 

L 

PRINT 176,CSET,MN,DAY.YR 

0074 


176 FORMAT ( ' ' , ' SET# M4,4X,I2, '-M2'-M2) 

0075 


PRINT 77.CPRGF . ITIME 

0076 

p 

LSTL=IFIX( FLOAT (BINS)/ 10. +.99) 


L 

c 

p 

PRINT LINES 

0077 

L 

DO 177 J‘l iLSTL 

0078 


BNMBR=LBI+10«( J-l ) 

0079 


INMBR=1+10*( J-l ) 

0080 


LNMBR=10«J 

0081 


PRINT 90» BNMBR . (LPMA(I ) , I=INMBR,LNMBR) 

0082 


177 CONTINUE 

0083 

p 

REWIND 6 

0084 

L 

r. 

190 RETURN 


C ERROR CONDITIONS 
C 


0085 


200 

PAUSE '?? FILE 

OPENING ERROR' 

0086 

P 


RETURN 


0087 

L 

210 

PAUSE '?? FILE 

READ ERROR' 

0088 



CLOSE ( UN I T= 3 ) 


0089 

p 


nETURN 


0090 

L 


END 



ORIGIN- PAGE IS 
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FORTRAN IV Storaae flap for Proaraw Unit EXMPRF 


Local Variables. .PSECT 

•DATA, 

Size = 

• 000130 

( 44. words) 


Name 

T ype 

Offset 


Name 

T ype 

Offset 

Naiie 

T ype 

Offset 

BCNT 

1*2 

000060 


BINS 

1*2 

000032 

BNMBR 

1*2 

000062 

CPROF 

1*2 

000040 


CSET 

1*2 

000036 

DAY 

1*2 

000044 

DPROF 

1*2 

000030 


DSET 

1*2 

000026 

HDRB 

1*2 

000050 

I 

1*2 

000076 


ICNT 

1*2 

000056 

INMBR 

1*2 

000064 

J 

1*2 

000102 


K 

1*2 

000100 

LSI 

1*2 

000034 

LNMBR 

1*2 

000066 


LSTL 

1*2 

000054 

MN 

1*2 

000042 

MON 

L*1 

000074 


NXTL 

1*2 

000052 

TIM2 

1*4 

000070 

YR 

1*2 

000046 








COMMON 

B1 ocK 

/BUFF 

/, 

Size = 

010150 

: 2100. 

words ) 



Name 

T>»e 

Offset 


Name 

T ype 

Offset 

Na«e 

T ype 

Offset 

LDATA 

1*2 

000000 








COMMON 

B1 ocK 

/DISK 

/, 

Size = 

000023 

( 10. 

words ) 



Name 

Type 

Offset 


Name 

T ype 

Offset 

Nave 

Type 

Offset 

INTSIZ 

1*2 

000000 


RECSIZ 1*2 

000002 

FNAME 

L*1 

000004 


Local and COMMON Arrays! 


Name Type Section Offset Size Distensions 

EXT L*1 IDATA 000010 000003 ( 2.) (3) 

FNAME L* 1 DISK 000004 000017 ( 8.) (15) 

I T I ME L* 1 *DATA 000000 000010 ( 4.) (8) 

LDATA 1*2 BUFF 000000 010150 < 2100.) (2100) 

Subroutines. Functions. Statement and Processor-Defined Functions! 

Name Type Na«e Type Name Type Naste Type Nasie Type 

CLRSCN R*4 FLOAT R*4 IFIX 1*2 TIMASC R*4 
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FORTRAN IV 


V02.5-5 


Tue 31-May-83 15:22:06 


PAGE 001 


0001 

0002 


0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 


0014 


0015 

0016 

0017 

0018 

0019 

0020 
0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


c 

c- 

c 

c- 


««ft »****«***#*** *«**«****«**#*# «»******« i ***«#*#•* 

SUBROUTINE DISCAL. FOR - DATA CALCULATIONS AND DISPLAY 

D.VOELZ 

*# ****«*«« **«*****«**#*******»«****«#«*««»**#«***« 

THIS SUBROUTINE PROCESSES INCOMING SODIUM LIDAR PROFILES. 
IT CALCULATES AND DISPLAYS PARTICULAR VALUES OF INTEREST. 

SUBROUTINE DISCAL 

INTEGER CSET . CPROF , LSET , LPRQF , I NTS I Z 
>.RECSIZ,B30,B60,S20,LDATA(2100) ,K30,K60,K80,K100 
>,SGP,TSGP,AK30,AK60,AK80,AK100,ASGP,ATSGP 
>,REPNUM,MSHOTS,LBI,HBI ,PDEL 

REAL CLA , ACLA , RAYC , LREP» LR I , HRI , EANG , REANG , BSAT , BSATF 
LOG I CAL* 1 IDATE ( 9) » ITIME( 8) 

BYTE RUNFLG.DFLAG.ERRFLG 

COMMON /DATTIM/ IDATE » ITIME 

COMMON /STATS/ CSET, CPROF, LSET, LPROF 

COMMON /CALCS/ K30,K60,K80,K100,SGP,TSGP,CLA 

COMMON /FLAGS/ RUNFLG , DFLAG, ERRFLG 

COMMON /PTERS/ B30,B60,S20 

COMMON /BUFF/ LDATA 

COMMON /SEND/ RFPNUM, MSHOTS 

COMMON /LREPS/ LREP.LRI , HRI , LBI , HBI , BSAT, BSATF , EANG , 
>REANG. PDEL 

CALL CLRSCN 


CALCULATIONS 


AK30=0 
AK60=0 
AK80=0 
AK 100=0 
CALCULATE K30 
DO 10 1=1,5 

10 AK30=AK30+LDATA(B30-3+I ) 

AK 30= IFIX (FLOAT (AK301/5.+.5) 
CALCULATE K60,K80,100 
DO 20 1=1, S20 

AK60=AK60+LDATA(B60-1+I ) 
AK80=AK80+LDATA ( B60- 1+I+S20 ) 

20 AK 100=AK 100+LDATA(B60-1+I+S20+S20) 
CALCULATE SIGNAL PHOTONS 
ATSGP=AK80-AK60 

ASGP = IFIX( FLOi'. T ( ATSGP ) /MSHOTS+ .5) 
COLUMN ABUNDANCE RhTIO 

RAYC = FLOAT ( AK30 ) -FlOAT ( AK 60 ) /S20 
ACLA=0 . 

IFCRAYC.LE.O. )GOTO 25 
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0032 ACLA=FLOAT (ATSGP) /RAYC 



C- 

C 

r_- 

CHECK RUN FLAG 

0033 

L 

r__ 

25 IF (RUNFLG.E3.3JG0T0 30 


w 

C 

P-- 

DATA RUN DISPLAY 

0035 

L 

K30=AK30 

0036 


K60=AK60 

0037 


K80=AK80 

0038 


K100=AK100 

0039 


SGP=ASGP 

0040 


TSGP=ATSGP 

0041 

p 

CLA=ACLA 

mi 

L 

Wfl » ( I DATE (n*I = l»9)r(ITIME(I)»I = l»8) 

88*! 


m )8:fi§Mte pR0F 

0046 


TYPE 72 , BSAT 

mi 


KPi 18 .,^<.0. *8°. K 100 

0049 


TYPE 100, SGP 

0050 

p 

TYPE 110, CLA 

0051 

L 

PRINT 50, (IDATE(I),I=1,9),(ITIME(I),I=1,8 

0052 


PRINT 60.CSET ,CPROF 

0053 


PRINT 70,MSH0TS 

0054 


PRINT 72, BSAT 

0055 


PRINT 80, K30, K60 , K80 , K 100 

0056 


PRINT 90.TSGP 

0057 


PRINT 100, SGP 

0058 


PRINT 110, CLA 

0059 


PRINT 47 

0060 

p 

REWIND 6 

0061 

L 

p_ 

RETURN 


L 

c 

p_ 

SODIUM ALIGNMENT RUN DISPLAY 

0062 

L 

30 TYPE 45 

0063 


TYPE 50,(1 DATE (I), 1 = 1, 9), (ITI ME (I), 1 = 1, 8) 

0064 


TYPE 70, MSHOTo 

0065 


TYPE 72, BSAT 

006o 


TYPE 80 , AK30, AK60 , AK80, AK100 

0067 


TYPE 90, ATSGP 

0068 


TYPE 100, ASGP 

0069 

p 

TYPE 1 10, ACLA 

0070 

L 

c- 

c 

RETURN 


FORMAT STATEMENTS 


c- 
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0071 40 FORMAT ( ' T35, 'DATA RUN ',/ ) 

0072 45 FORMATS ' r /, T30 , 'SODIUM ALIGNMENT RUN ',/ ) 

0073 47 FORMAT ( ' \T23, ' ') 

0074 ) FORMAT ( ' ' .T35.9A1 ./T35.8A1 , ) 

0075 60 FORMAT ( ' ',T33.'Set # M4, /T33, 'Prof i le * M4,/) 

0076 70 FORMAT ( ' ',T23,'Laser Shots Per Profile =M6) 

0077 72 FORMAT ( ' T23, 'Base A1 1 1 tude Sett ina =',F6.2> 

A-7Q Qrt CODMAT I ' • a <4 Dk^tnnc 1 ' /T3D Um -• TA. 


vu/o au runnHiv ■ uji ueiecieo morons. »/ijdi ai ju nn - iioi 

>/T35 1 '60 - 80 Km =M6,/T35,'S0 - 100 Km « M6, /T34. ' 100 

> - 120 Km s ' » 16 ) 

0079 90 FORMAT ( ' ',T23, 'Total Sianal Photons =',I6) 

0080 100 FORMAT ( ' T23 , 'Sianal Photons Per Shot =M6) 

0081 110 FQRMAT(' ' , T23 » 'Co 1 uMn Abundance Ratio ='»F6.2) 

0082 END 
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ift> 


FORTRAN IV Storaae Mil? for Proaram Unit DISCAL 


Local Variables. .PSECT IDATA. 

Size - 

000070 

( 28. words) 


Name 

Type 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

ACLA 

R*4 

000036 

AK 100 

1*2 

000030 

AK30 

1*2 

000022 

AK60 

1*2 

000024 

AK80 

1*2 

000026 

ASGP 

1*2 

000032 

ATSGP 

1*2 

000034 

I 

1*2 

000046 

INTSIZ 

1*2 

000016 

RAYC 

R*4 

000042 

RECSI2 

1*2 

000020 




COMMON 

Block 

/DATTIM/, Size = 

000021 

( 9. 

words) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

Type 

Offset 

IDATE 

L*1 

000000 

I TIME 

L*1 

000011 




COMMON 

Block 

/STATS 

/. Siz* 

000010 

( 4. 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

Type 

Offset 

CSET 

1*2 

000000 

CPROF 

1*2 

000002 

LSET 

1*2 

000004 

LPROF 

1*2 

000006 







COMMON 

Block 

/CALCS 

/. Size = 

000020 

( 8 . 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

K30 

1*2 

000000 

K60 

1*2 

000002 

K80 

1*2 

000004 

K100 

1*2 

000006 

SGP 

1*2 

000010 

TSGP 

1*2 

000012 

CLA 

R*4 

000014 







COMMON 

Block 

/FLAGS 

/. Size = 

000003 

( 2. 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

RUNFLG 

L*1 

000000 

DFLAG 

L*1 

000001 

ERRFLG 

L*1 

000002 

COMMON 

Block 

/PTERS 

/, Size = 

000006 

( 3. 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

Type 

Offset 

B30 

1*2 

000000 

B60 

1*2 

000002 

S20 

1*2 

000004 

COMMON 

Block 

/BUFF 

/. Size = 

010150 

( 2100. 

words ) 



Name 

Type 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

LDATA 

1*2 

000000 







COMMON 

Block 

/SEND 

/. Size = 

000004 

( 2. 

words ) 



Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

REPNUM 

1*2 

000000 

MSHOTS 1*2 

000002 




COMMON 

Block 

/LREPS 

/» Size = 

000042 

( 17. 

words ) 



Name 

T ype 

Offset 

Name 

Type 

Offset 

Name 

T ype 

Offset 

LREP 

R*4 

000000 

LRI 

R*4 

000004 

HR J 

R*4 

000010 

LBI 

1*2 

000014 

HBI 

1*2 

000016 

BSAT 

R*4 

000020 

BSATF 

R*4 

000024 

EANG 

R*4 

000030 

REANG 

R*4 

000034 

PDEL 

1*2 

000040 
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FORTRAN IV Storaae Map for Prosram Unit DISCAL 

Local and COMMON Arrays.' 

Name Type Section Offset Size Dimensions 


IDATE 

L*1 

DATTIM 

OOOOOO 000011 ( 

5. ) 

(9) 


I TIME 

L*1 

DATTIM 

C00011 000010 ( 

4. ) 

(8) 


LDATA 

1*2 

BUFF 

OOOOOO 010150 ( 

2100. ) 

(2100) 


Subroutines. 

Functions 

. Statement and Processor- 

-Defined 

Functions! 

Name 

T ype 

Name Type Name Type 

Name 

T ype 

Name Type 

CLRSCN 

R*4 

FLOAT 

R*4 IFIX 1*2 
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6 

7 

8 
9 

10 000000 
11 


LSI- 11 RECEIVER 
D.V0ELZ 


.TITLE RCVER.HAC 
.HCALL .INTEN,. PROTECT 
.GLQ9L HDUNP . SND ACK . I N I TR . HQU T 
.CSECT RCVER 


I/O LOCATIONS 


14 

176500 

RCSR=176500 

IDLV11-J CHN.O LOCATIONS 

15 

176502 

RBUF=RCSR+2 


16 

000300 

PCVEC-300 


17 

000302 

STVEC : PCVEC+2 


18 




19 


1 GENERAL PARAMETERS 


20 


• 

f 


21 

000340 

PR7=340 

I PRIORITY LEVEL 7 

22 

000003 

ERRCNT =3 

I ERROR COUNT 

23 

000063 

PRD0ME=063 

.’OPCODES-PROFILE DONE 

24 

000064 

ACK=064 

1 -ACKNOWLEDGE 

25 

000071 

DATEND=07l 

I -END OF DATA 

26 

000201 

CTX-201 

I'CTX' CHAR 

27 

000202 

ETX=202 

I'ETX' CHAR 
i 'STX ' CHAR 
I'DLE' CHAR 

28 

000203 

STX=203 

29 

000220 

DLE=220 

30 


• 

9 


31 


I DATA PAtKET PARAMETERS 

32 


f 


33 

000120 

0PCL0=120 

;lo byte data opcode 
;hi byte data opcode 

34 

000340 

OPCHI =340 

35 

003720 

PAKLEN--2000. 

1 PACKET LENGTH (MAX=32767) 

36 


• 

9 


J/ 




38 

39 


I INITIALIZE RECEIVER 

■ ^ ■■L_.JJMMJ.JM-. 



40 000000 

41 000020 

42 000026 

43 000034 

44 000042 

45 

46 

47 

48 000044 

49 000050 

50 000054 

51 000060 

52 

53 

54 

55 

56 

57 


012737 

012737 

012767 

000207 


012701 

012702 

004767 

000207 


000062' 000300 
000340 000302 
000144' 000000' 


000000 ' 

007640 

OOOOOOG 


initr:: .protect iparea.hoo 

NQV IIOINT.WPCVEC 1SET b? PC VECTOR 

HOV IPR7.8#STVEC 1SET UP STATUS WORD VECTOR 

NOV 8STPAK1, STATE ,'SET INPUT BYTE VECTOR 

RTS PC 


HEX HEHORY DUMP OF ARRAY LDATA 


nout:: 


8LDATA.R1 
14000.. R2 
PC.HDUHP 
PC 


INTERRUPT POINTS 


INTERRUPT ENTRY POINT 


ORKrfNAL PAGE IS 

OF POOR QUALfTY 


RCVER.NAC 


58 

59 OOOOfci 

60 000070 

61 000072 

62 000074 

63 000076 

64 

65 0001 00 

66 

67 000104 

68 000110 

69 

70 

71 

72 000112 

73 000116 

74 

75 000122 

76 

77 000126 

78 000130 

79 000132 

80 000134 

81 000136 

82 

83 

84 

85 

66 000140 

87 000144 

88 000150 

89 

90 000152 
9! 000156 

92 000162 

93 000164 

94 

95 000170 

96 000174 

97 

98 

99 

100 000200 

101 000204 

102 000210 

103 

104 000216 

105 000222 

106 000226 

107 000230 

108 000234 

109 000240 

110 000244 

111 
112 

113 

114 000246 



NACfJO 004.00 31 -HAY-8: 15:40137 PAGE 1-1 



joint: 

.INTEN 

7 

I ALERT RT-11 OF INTERRUPT 

010046 



nov 

RO.-(SP) 

ISAVE REGISTERS 

010146 



H0V 

Rl.-(SP) 


010246 



NOV 

R2»-(SP) 


010346 

• 


HOV 

R3,-(SP) 


016701 

000000' 


NOV 

STATE, R1 

,’HOVE INPUT BYTE VECTOR TO Rl 

113700 

176502 


JIOVB 

rirbuf.ro 

I LOAD RO WITH INPUT BYTE 

000111 



jHP 

(Rl) 

;go take care of input byte 



INTERRUPT EXIT POINT 


042700 

177400 0 

£TBT: 

BIC 

fl 77400, RO 

; CLEAR HI BYTE OF RO 

060067 

000002' 


ADO 

RO.RCSUH 

: UPDATE RECD CHECKSUH 

012667 

000000' 


HOV 

(SP)*, STATE 

.’SET NEW INPUT BYT- VECTOR 

012603 



HOV 

(SP1+.R3 

I RESTORE REGISTERS 

012602 



HOV 

(SP1+.R2 


012601 



HOV 

'SPH.Rl 


012600 



HOV 

(SPl+.RO 


000207 



RTS 

PC 




PACKET RECEIVING 


004767 

177746 

btpak: 

JSR 

PC.GET2T 


120027 

000220 

STPAKi: CHPB 

RO.fDLE 

: CHECK FOR 'DLE ' BYTE 

001373 


a 

BNE 

STPAK 


004767 

177734 

1 

JSR 

PC.GETBT 


120027 

000203 


CHP‘ 

RO.fSTX 

I CHECK FOR 'STX' BYTE 

001366 



BNE 

STPAK 


005067 

000002' 

oppak: 

• 

CLR 

RCSUH 

J CLEAR RECD CHECKSUH ACCUHULATOR 

004767 

177716 

9 

JSR 

PC.GETBT 

;get C'CODE 

110067 

000016' 


NOVB 

RJ.OPCDE 

; SAVE IT 


VERIFY CHECKSUH 


004767 

177706 

verchk: jsr 

PC.GETBT 

IGET 'DLE' BYTE 
,‘GET 'ETX' BYTE 

004767 

177702 

JSR 

PC.GETBT 

016767 

000002 ' 000004 

verify: hov 

RCSUH, SAVSUH 

ISAVE RECD CHECKSUH 

004767 

177670 

JSR 

PC.GETBT 

;get lo btye xhitted checksuh 

; CHECK IT 

120067 

000004' 

CHPB 

RO , SAVSUH 

001344 


3NE 

STPAK 

• 

004767 

177656 

JSR 

PC.GE13T 

IGET HI BYTE XHITTED CHECKSUH 

000367 

000004 ' 

SUM 

SAVSUH 


120067 

000004' 

CHPB 

RO, SAVSUH 

; CHECK IT 

001335 


BNE 

a 

STPAK 




I DECIPHER OPCODE 
■ 


116701 

000016' 

HOVB 

OPCDE.R! 

;novE opcode to ri 






■ 


m 
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115 

116 000252 

122701 

000064 

» 

CHPB 

IACKiRI 

I ACK ? 

117 000256 

001433 



CEO 

ACKN 


116 000260 

122701 

000071 


CHPB 

IDATEND.R1 

; DAT.. PACKET COHPLETED ? 

119 000264 

001003 



BNE 

PRFCHK 

; -NO, GO ON 

120 000266 

004767 

OOOOOOG 


JSR 

PC » SNDACK 

I -YES, SEND ACK 

121 000272 

000722 



BR 

STPAK 


122 000274 

122701 

000063 

prfchk: chpb 

tPRDONE-Rl 

I PROFILE COMPLETED ? 

123 000300 

001011 



SHE 

DATCHK 

I -NO, GO ON 

124 000302 

004767 

0000003 


JSR 

PC, SNDACK 

I -YES, SEND ACK 

125 000306 

112767 

000001 

ooooo r 

HOVB 

11, DRAG 

; SET DATA RUN FLAG 

126 000314 

042737 

OOulOO 

1 7 6500 

BIC 

•100,?IRCSR 

I DISABLE DLV11-J INTERRUPT 

127 000322 

000706 



3R 

STPAK 


128 000324 

042701 

00C01 7 

DATCHK : BIC 

•17.R1 

1 CLEAR LONER 4 BITS OF OPCODE 

129 000330 

122701 

000120 


CHPB 

I0PCL0.R1 

1 LON BYTE DATA ? 

130 000334 

001410 



BEG 

LBYTES 


131 000336 

122701 

000340 


CHPB 

fOPCHI ,R1 

1 HI BYTE DATA ? 

132 000342 

001410 



6EQ 

HBYTES 


133 000344 

134 

1 IK 

000675 



BR 

S T0 AK 

;bad opcode 

136 

137 

136 000346 




RECEIVED ACKNOWLEDGE 

112767 

000001 

COOOOO' 

on: hovb 

fl.ACKFLG 

ISET ACK FLAG 

139 000354 

1 4 A 

000671 



BR 

STPAK 


IW 

141 




RECEIVE DATA FRAHE 


142 









143 

144 

145 


DETERMINE BASE ADDRESS FOR DATA FRAHE 


146 000356 

012704 

OOOOOO' LBYTES.’ 

HCV 

ILDATA.R4 

ISET BASE ADDRESS FOR LO BYTES 

117 000362 

000402 


BR 

DATFRH 


148 000364 

149 

150 000370 

012704 

000001' HBYTES 

HCV 

#<l.DATA*l>,R4 

ISET BASE ADDRESS FOR HI BYTES 

012703 

007640 datfrh: 

HOV 

#<2«PAT.LEN>,R3 

I HOVE D0U81E PACKET LENGTH INTO R3 

151 000374 

152 000400 

\n 

000016' 

000071 000016' 

10VB 

HOVB 

OPCDE.Rl 

#DATEND,OPCDE 

I HOVE OPCODE INTO R1 
ILOAD 'DATEND' OPCODE 

153 


• 

9 




154 000406 

042701 

177760 

BIC 

#177760, R1 

I CLEAR HI 12 BITS OF OPCODE 

155 000412 

070301 


HUL 

R1.R3 

IHULT. ADJSTD. OPCODE A DBL. PACKET 

156 000414 

060304 


ADD 

R3.R4 

I ADD ADDRESS BASE 1 ADDRESS OFFSET 

157 000416 
1SS 

159 

160 

161 000422 

010467 

000006' 

• 

HOv 

R4,STADD 

ISAVE DATA PACKET STARTING ADDRESS 


I RECEIVE DATA BYTES 


004767 

177464 

JSR 

PC.GETBT 


162 000426 

120027 

000220 

CHPB 

RO.IDLE 

1 CHECK FOR 'DLE' CHARACTER 

163 000432 

164 

165 000434 

001242 

# 

BNE 

STPAK 


004767 

177452 


PC.GETBT 


166 000440 

120027 

000201 

CKPB 

RO.ICTX 

I CHECK FOR 'CTX ' CHARACTER 

167 000444 

001235 


BNE 

STPAK 


168 000446 

169 

170 000452 

005067 

000002' 

• 

CLR 

RCSUH 

I CLEAR RECD CHECKSUM ACCUMULATOR 

0047‘7 

177434 DATA! 

JSR 

PC.GETBT 

RO.IDLE 

I GET DATA BYTE 

I CHECK FOR 'OLE' CHARACTER 

171 000456 

12U027 

000220 

CHPB 


mnm 



172 000462 001407 

173 

174 000464 016704 


BED 

• 

CHKDBL 

000006' 

okdsl: muv 

STADDiR 1 

175 000470 110024 


M0V8 

RO,(P'.H ; DEPOSIT BYTE 

'76 000472 005204 


INC 

R4 

4 77 000474 010467 

000006' 

MOV 

R4.STADD 

170 Ov/0500 000764 
179 


BR 

• 

chkdbl: jsr 

DATA 

180 000502 004767 

177404 

PC.GETBT ITHROM AHAY FIRST 'DLE 

RO.ICLE I DLE V 

181 C 00506 120027 

000220 

CMPB 

182 0U0512 001764 


BE8 

0X38L 

103 000514 120027 

000202 

enc;t: cppb 

RO.iETX I ETX ? (FRAME DONE) 

184 000520 001633 


BEQ 

VERIFY 

185 000522 000167 

186 
187 

177412 

JHP 

• 

« 

• 

9 

STPAX : FRAME ENDER ERROR 

180 000000 


.PSECT 

RCOiRU.DiLCLiRELiCON 

189 000000 


STATE: .3LXH 

1 

190 000002 


rcsuh: .bi.xu 

1 

191 000004 


•wsum: .blxu 

1 

192 000006 


STAOD: . BLKk 

1 

193 000010 


parea: .blxu 

3 

194 000016 

195 


opcde: .bus 
• 

9 

1 

196 000000 


..‘’SEC’ 

rtCXFLGiRH.DiGBL.REL.OVR 

197 000000 

198 


ackflg: .blxb 

i 

4 

A 

199 COOOOO 


.PSECT 

BCFF.RH.D.GBL.REL.OVR 

200 OOOOCO 

201 


ldata: .blxu 

9 

2100. 

202 000000 


.PSECT 

FLAGS.RH.D.GBL.RELrOOR 

203 000000 


runflg: .blxb 

1 

204 00C001 


dflag: .5UB 

1 

205 000002 

206 

207 000001 


errflg: .blxb 

.END 

1 
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SYMBOL TABLE 



ACKFLG 

000064 

OOOOOOR 

004 Bfir : 8S8§??R 

002 

ACKN 

000346R 

002 ERRCWT 1 000003 

HOUT 000044RG 

CHKDBL 

000502R 

002 ERRFLG C00002R 

006 CKDBl 0OO464R 

CTX «■ 

000201 

ETX - 000202 

OPCDE 000016R 

DATA 

000432R 

002 GETBT 0001 12R 

002 OPCHI * 000340 

DATCHK 

000324R 

002 HBYTES 000364R 

002 OPCLO = 000120 

DATEND- 

000071 

HDUMP « ****** G 

OPPAK 000164R 

DATFRH 

000370R 

002 INITR OOOOOORG 

002 PAKLEM 5 003720 

DFLAG 

00000 1R 

006 IOIMT 000062R 

002 PAREA 00001 OR 

. ABS. 

000000 

000 



000000 

001 


RCVER 

000526 

002 


RCV 

000017 

003 


ACKFLG 

000001 

004 


BUFF 

010150 

005 


FLAGS 

000003 

006 



ERRORS detected: 0 

VIRTUAL MEMORY USED! 9216 WORDS ( 36 PAGES) 
DYNAMIC HE WRY AVAILABLE FOR 54 PAGES 
ROVER, ip:=rcvfr.mac 


88* 88® 

002 PRFOf 0002741 002 
* 000340 

RCSR * !76$0 
RCSUH 0000021) 003 

002 RUNFLG OOOOOOR 006 
SAVSUH 000004R 003 

003 SNDACK- ««mm 6 


002 PR 7 

003 RBUF 


STPAK 000140* 
STPAK1 000144* 

|TVEC 

m w % 

...VI * 000003 
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OF POOR QUALITY 


10 000000 
11 


29 

30 

31 

32 
23 

34 

35 


47 

<9 

49 

50 

51 O0O0L0 

52 OOOOCo 

53 000012 

54 
5b 

56 

57 


ttHHHHUH tHMt+mt •»*« HHiHIHI 

LSI-11 SENDER 
D.V0ELZ 

HmiWHHHHHHIlHKmmUWH 
.TITLE SENDER. RAC 
.RCALL .TTY0UT,. PRINT,. T7Y1N 
.SL38L SNDACE . SMOOTH « 5P0CCR > CLRSCN 
.CSECT jl«0ER 


12 


I I/O LOCATIONS 


13 


• 

1 


14 

176500 

RCSR 1 176500 

JDLV11-J CHN.C LOCATIONS 

15 

176502 

R8UF-RCSR+2 

16 

176504 

XCSR=RCSR+4 


17 

176506 

XSUF-RCSR+6 


IB 


• 

1 


19 


I GENERAL PARARETERS 


«LV' 

21 

000003 

ERRCWT=3 

1 ERROR COUNT 

22 

000061 

D RUN -061 

,’OPCCDES-DATA RUN 

23 

000062 

C3H-062 

I -CORRANDS 

24 

000064 

ACK-064 

I -ACKNOWLEDGE 

25 

000201 

CTX=201 

J'CTX' CHAR 

26 

000202 

ETX=202 

I'ETX' CHAR 

27 

000203 

STX-203 

I'STX' CHAR 

28 

000220 

DLE=22C 

I'DLE' CHAR 


NACR0 DIRECTIVE - AKWAIT 

THIS flACRO DIRECTIVE IS THE TIHE-0UT LOOP FOR AN 
ACKNOWLEDGE. IF THE ACKNOWLEDGE FLAG (ACKFLG) IS 
NOT SE T WHILE THE ROUTINE IS IN ITS LOOP, PROGRAfl 
CONTROL JUMPS TO THE ERROR ROUTINE 'ERROUT'. 


36 


.HACRO 

AKWAIT jRPADD,?A,?flr?C 

37 


HOV 

2000., RO 

38 

a: 

CRPB 

ACKFLG.il 

39 


BE8 

C 

40 


DEC 

RO 

41 


BNE 

A 

42 

b: 

DEC 

R3 

43 


BNE 

JRPADD 

44 


JRP 

ERROUT 

45 

c: 

NOP 


46 


.ENDR 

AKWAIT 


’ "sew' acknowledge' 

112767 000064 000002' SNDACKIIROVB IACK.OPCDE 
004767 ^>00162 JSR PC.SNDFRR 
000207 RTS PC 


I LOAD 'ACX ' OPCODE 
,'SEND ACX FRARE 


::r2s:sr:r::ss::::zssr::s:: 

SEND DATA RUN FRARE 


:r::::::rrsr 


sszrrrrsirrssrrs:: 




> 
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58 000014 

59 000022 
tO 000030 

61 000034 

62 000040 

63 000044 

64 000076 

65 


052737 000100 176500 
112767 000061 000002' 
012703 000003 
105067 OOOf'OO ' 

004767 000130 

00020 ? 


SNDDTRI :bis 
NOVB 
NOV 

SMDTR1 I CLRB 
JSR 


I100.MRCSR 
IDRUN.OPCDE 
#ERRLn t iR 3 
ACKFLG 
PC i 3NDFRH 
AX HA IT SNDTR1 
RTS PC 


iload 'drun' opcode 

ISET ERROR COUNT 
ICLEAR ACX FLAG 
ISEND DATA RUN FRAME 

;hait for ack 


66 

67 



SEW 30NNANDS FRANE 


6? 

69 000100 





_ 

052737 

00010C 176500 5 

non: IBIS 

I100.MRCSR 


70 000106 

112767 

000062 000002' 

NQV3 

4CGH.QPCDE 

ILOAD 'COMMANDS ' OPCODE 

71 000114 

012703 

000003 

TOO 

IERRCNT.R3 

:SET ERROR COUNT 

72 000120 

105067 

oooooo' sncohi: clrb 

ACKFLG 

J CLEAR ACX FLAG 

73 000124 

004767 

000044 

JSR 

PC.SNDFRN 

ISEND COMMANDS FRAME PART 1 

74 000130 

004767 

000132 

JSR 

PC.SNDCM2 

.'SEND COMMANDS FRANE PART 2 

75 000134 



AXUAIT 

SNC0H1 

76 000166 

004767 

177622 

JSR 

PC.SNDDTR 

ISEND DATA RUN FRANE 

^7 000172 

70 

000207 


RTS 

PC 


/7 

80 

81 



GENERAL PACKET SENDING ROUTINE 

• 

82 000174 

112700 

000220 

sncfrn: hovb 

4DLE.RC 


83 000200 

004767 

000146 

JSR 

PC.SNDBYT 

ISEND 'OLE' CHARACTER 

84 000204 

85 

86 000206 

005001 


CLR 

R1 

ICLEAR XMIT CHECKSUM 

112700 

000203 

NOVB 

ISTXiRO 


87 000212 

88 

89 000216 

004767 

000126 

JSR 

PC.UPDTCK 

I UPDATE XHIT CHECKSUM & SEND 

116700 

000002' 

NOVB 

OPCDE.RO 


90 000222 

91 

92 000226 

004767 

000116 

JSR 

PC.UPDTCK 

I UPDATE XMIT CHECKSUM & SEND 

112700 

000220 

ender: nov? 

idle.ro 


93 000232 

94 

95 000236 

004767 

000106 

JSR 

PC.UPDTCK 

I UPDATE XHIT CHECKSUM J SEND 

112700 

000202 

NOVB 

4ETX.R0 


96 000242 

97 

98 000246 

004767 

000104 

JSR 

PC.SNDBYT 

ISEND 'ETX' CHARACTER 

110100 


sncchk; NOVB 

Rl.RC 

ISEND XMIT CHECKSUM 

99 000250 

004767 

000076 

JSR 

PC.SNDBYT 

I LO BYTE 

100 000254 

000301 


SHA8 

R1 


101 00C256 

110100 


NOVB 

Rl.RO 


102 000260 

004767 

000066 

JSR 

PC.SNDBYT 

I Hi BYTE 

103 000264 

000207 


RTS 

PC 



104 

105 

106 
107 



r 

• 

I SEND COMMANDS FRANC PART 2 
■ 

— 

108 000266 

112700 

000220 

SNDCN2: NOVB 

IDLE.RO 


109 000272 

004767 

000054 

JSR 

PC . SNDBY T 

ISEND 'DLE ' CHARACTER 

hO 000276 
111 

005001 


CLR 

• 

» 

R1 

ICLEAR XMIT CHECKSUM 

112 000300 

112700 

000201 

NOVB 

ICTX.RO 


113 000304 

114 

004767 

000034 

JSR 

• 

• 

PC.UPDTCK 

I UPDATE XHIT CHECKSUM 1 SEND 'CTX 


0RI€M4AL 

OF PUOH 1 
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115 000310 

116700 

000000' 


HOVB 

REPNW1.R0 


116 000314 

117 

004767 

000024 

• 

9 

JSR 

PC.UPDTCK 

.‘SEND REP NUHBER 

HE 000320 

116700 

000002' 


HUVfi 

HSHOTS.RO 

.‘SEND HSHOTS 

119 000324 

004767 

000014 


JSR 

PC.UPDTCK 

J LO BYTE 

120 000330 

016700 

000002 ' 


NOV 

HSHOTS.RO 

121 000334 

000300 



SHA8 

RO 


122 000336 

123 

004767 

000002 

• 

V 

JSR 

PC.17DTCX 

J HI BYTE 

124 000342 

000731 



SR 

ENDER 

.‘SEND PACKET ENDER 


125 

126 
127 
126 

129 

130 


UPDATE CHECKSUM I SEND BYTE 
ROUTINES 


131 000344 

042700 

177400 

updtck: eic 

#1 77400.R0 

1 CLEAR HI BYTE OF RO 

132 000350 

060001 


ADD 

RO.Rl 

,‘ UPDATE CHECK SUN 

133 



« 

V 



134 000352 

032737 

000200 

176504 SND9YT: 9I t 

#200,MXCSR 

; CHECK STATUS REG 

135 000360 

001774 


BEQ 

SNDBYT 


136 000362 

110027 

176506 

H0V8 

RO.WXBUF 

; OUTPUT RO 

137 000366 

000207 


RTS 

PC 


138 



■ 

9 



J39 



1 —————— 




140 



1 ERROR MESSAGE 


141 



* 

» —————— 



142 000270 

004767 

0000 OOG 

r RROUT: JSR 

PC.CLRSCN 


143 000374 



.PRINT 

IERRHSG 


144 000402 



.TTYIN 


;GET RESPONSE 

145 000406 

110001 


HCV8 

RC.Rl 

; STORE IT 

146 000410 



.TTYIN 


: PICK UP LF 

147 000414 



.TTYIN 


JPICK UP LR 

148 000420 

120127 

000131 

CHPB 

Rl.l'Y 

; CHECK RESPONSE 

149 000424 

001002 


BNE 

EDONE 


150 000-.. 

000167 

177446 

JHP 

SNDC3H 


151 000432 

112767 

000001 

ooooor edone: novb 

fl.DFLAG 

;SET DONE FLAG 

152 000440 

112767 

000001 

000002- NOVB 

H.ERRFLG 

,‘SET ERROR FLAG 

153 000446 

042737 

000100 

176500 BIC 

flOC.BIRCSR 

IDISASLE DLV11-J INTERRUPT 

154 000454 

000207 


RTS 

PC 


155 



r 



156 000000 



.PSECT 

HSGS.RH.D.LCL.REL.CON 

157 000000 

015 

012 

012 errnsg: .byte 

15.12.12.12,12,12.12.12,12 

000003 

012 

012 

012 



000006 

012 

012 

012 



158 000011 

040 

0*0 

C40 .ASCII 

/ 

COHHANI) TRANSMISSION 

000014 

040 

0*0 

040 



ooo ji: 

040 

040 

040 



000022 

040 

040 

040 



000025 

040 

0*0 

040 



000030 

040 

040 

040 



000033 

040 

040 

040 



000036 

040 

040 

040 



000041 

040 

040 

040 



000044 

103 

117 

115 



000047 

115 

101 

116 



000052 

104 

040 

124 
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000055 

000060 

000063 

000066 

000071 

000074 

15? 000076 

16C 000101 
000104 
000107 
000112 
000115 
000120 
000122 

161 000125 
000130 
000133 
000136 
000141 
000144 
000M7 
000152 
000155 
000160 

162 

163 000<W' 

164 COOOOO 

165 000002 

166 

167 000000 

168 000000 

169 

170 COOOOO 

171 000000 

172 00000: 

173 000002 

174 

175 000000 

176 000000 

177 000002 

178 

179 


122 

101 

116 

123 

115 

111 

123 

123 

111 

117 

116 

040 

105 

122 

122 

117 

122 

015 

012 

012 

040 

040 

040 

040 

040 

040 

0*0 

040 

040 

0*0 

040 

0*0 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

040 

124 

122 

131 

040 

101 

107 

101 

111 

116 

040 

077 

COO 

040 

200 


ooooc: 


.BYTE 

.ASCII 


15.12,12 

/ 


/ 


■ASCIZ / 


TRY AGAIN ? /<200> 


.PSECT 

xcsofi: .slxk 
opcde: .slkb 

. PSEC T 

ackflg: .blxe 


CCN, RH, 3 1 LCliREL. CON 

1 

A 

ACKFLG, W.D.GBL.REL.CVR 


RUNFLS: 

.PSECT 

.BLX9 

FlAGS, RH.O.GBL.REL.OVR 

dflag: 

.6LKB 

1 

errflg: 

• 

. 3LK8 

1 

* 

f 

repnuk: 

.PSECT 

.SLKW 

SEND,RN,D,3BI.,REL,0VR 

rsHcrs: 

. BLKU 

1 


.END 




li 
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SYMBOL TABLE 








ACK = 000064 

DRUN = 000061 

ETX * 000202 

SNC0H1 

000120R 

002 SNDFRM 

0001 74R 

002 

ACKFLG OOOOOOR 

005 EDOKE C00432R 

002 MSHCTS 000002R 

007 SNDACX 

OOOOOORG 

002 SNDTR1 

000034R 

002 

CLRSCN= *«*«* G 

ENDER 000226R 

002 OPCDE 000002R 

004 SNDBYT 

000352P 

002 STX -- 

000203 


COM = 000062 

ERRCNT - 000003 

RBUF - 176502 

SNDCHK 

000246R 

002 UPDTCK 

000344R 

002 

CTX = 000201 

ERRFLG 000002R 

006 RCSR = 176500 

SNDCH2 

000266R 

002 XBL'F = 

176506 


DFLAG 000001R 

006 ERRHSG OOOOOOR 

0C3 REPNUM OOOOOOR 

007 SNDCOH 

000100RG 

002 XCSR - 

176504 


DLE = 000220 

ERRGUT 000370R 

002 RUNFLS OOOOOOR 

006 SNDDTR 

000O14RG 

002 XCSUM 

OOOOOOR 

004 

. A8S. 000000 

000 







000000 

001 







SENDER 000456 

002 







NSGR 000161 

003 







CCM 000003 

004 







ACKFLG OCOOOl 

005 







FLAGS 0000C3 

006 







SEND 000004 

007 








ERRORS detected: 0 

VIRTUAL MEMORY USED: 8704 WORDS ( 34 PAGES) 
DYNMIIC HEMORY AVAILABLE FOR 54 PAGES 
SENDER i LP : s SENDER . MAC 
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III. 12 DISPLY 


OF POOR QUALITY 

niSTLY.HAC ftACRO V04.00 31-MAY 

-83 16:C2.*57 PAGE 1 

1 

2 



imHHHHHItHHIl IHiMMMIHHHHHHH 

3 

4 

5 



; DISPLY. RAC - VT 100 TERM I NAL DISPLAY ROUTINES 



, D.VOELZ 

a 

6 

7 

8 
9 



iHmHHHiHHtHHHHHHHHiHHKIHHHI 



! ms 

10 



; CLRSCN - CLEAR SCREEN, CURSOR TO HONE 

11 



I F0RSCN - INVERSE VIDEO 

12 



1 BAKSCN - NORMAL VIDEO 

13 



I 3E.SCN - RING THE BELL 

14 



1 

15 

16 

17 000000 

18 
19 



.TITLE DISPLY. MAC 
.NCALL .TTYQUT 
.CSEr DISPLY 

000033 


ESC-033 

?0 

000155 


lCH : 155 

21 



1 

22 



1 ...... .......... 

23 



I VT 1 00 DISPLAY SUBROUTINES 

24 

25 000000 

012701 

000054' 

clrscn: mcv #clrstr,ri 

26 000004 

CC0413 


BR OUT 

27 000006 

012701 

000064' 

FORSCft: :mov ifcrstr.ri 

28 000012 

000410 


BR OUT 

29 000014 

012701 

000071 ' 

bakscn: :nov ibakstr.ri 

30 0C0C20 

000405 


BR GUT 

31 000022 



8elscn::.ttysut be^l 

32 CC0032 

000207 


RTS PC 

33 



; 

34 



1 ASCII STRING OUTPUT SECTION 

35 



; 

36 000034 

111100 


out: novb (rd.ro 

37 000036 



.TTYQUT 

38 000042 

005201 


INC 91 

39 000044 

121127 

000000 

CNPB (Rll.fO 

40 000050 

001371 


SNE CUT 

41 000052 

42 

000207 


RTS PC 

a 

1 

43 



l ASCII STRINGS 

44 



a 

45 000054 

033 

133 

062 clrstr: .BYTE ESC, 'I, '2, 'J.ESC, '[, 'H,0 

000057 

112 

033 

133 

000062 

110 

000 


46 000064 

033 

133 

067 FORSTR: .BYTE ESC, '7.LCH.0 

000067 
47 000071 

1$ 

IB 

060 BAKSTR: .BYTE ESC, 'I, '0,LCN,0 

000074 

155 

000 


48 000076 

49 

007 


BELL: .BYTE 007 

f 

50 

000001 


.END 
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SYMBOL TABLE 


BAXSCN 000014RG 
BAKSTR 000071R 
BELL 000076R 

. ABS. OCOOOO 
000000 
DISPLY 000077 

errors detected: 


002 8ELSCN C00022RG 
002 CLRSCN OOOOOORG 
002 

000 

001 

002 


002 CLRSTR 000054R 
002 ESC * 000033 


002 FORSCN 000006RG 
FORSTR OOOC64R 




000155 

00C034R 


VIRTUAL MEMORY USED.' 8192 NQRDS ( 32 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 54 PAGES 
DISPLY, LP: --DISPLY 


165 
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III. 13 HDUMP 

HHUMF.MAC MACRO V04.00 31-MAY-03 16:04:36 PAGE 1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


ItHHtHHHH 


HEX MEMORY DUMP PROGRAM 
D.VOELZ 


o*< 


THIS SUBPROGRAM DUMPS A SECTION OF THE LSI-11 
MEMORY IN HEXADECIMAL FORM. 

— LOAD R1 WITH STARTING MEMORY ADDRESS 
-- LOAD R2 WITH BYTE COUNT 

.TITLE HDUMP. MAC 
.MCALL . TTYOUT 


17 000000 

111103 


hdump: : 

MOVB 

(R11.R3 

ILQAD .93 WITH DATA BYTE 

18 000002 

004767 

000020 


JSR 

PC » HEXOUT 

10UTPUT BYTE IN HEX 

19 000006 




. TTYOUT SPACE 

; OUTPUT SPACE 

20 000016 

005201 



INC 

R1 


21 000020 

005302 



DEC 

R2 


22 000022 

001366 



8NE 

HDUMP 

JLAST 3YTE ? 

23 000024 

24 

25 000026 

000207 



RTS 

PC 


110346 


hexout: 

NCV9 

R3t-(3P) 

J SAVE 3YTE 

26 000030 

072327 

177774 


ASH 

1-4, R3 

1 SELECT HI 4 BITS 

27 000034 

004767 

000010 


JSR 

PC, SEND 

JSEND IT 

28 000040 

112603 



MOVB 

(5P)+,R3 

.’RETRIEVE BYTE 

29 000042 

004767 

000002 


JSR 

PC, SEND 

JSEND LO 4 BITS 

30 000046 

000207 


• 

RTS 

PC 


3* 

32 000050 

142703 

000360 

send: 

3ICB 

1360, R3 

J CLEAR HI 4 BITS (OF BYTE) 

33 000054 

120327 

000012 


CMPB 

R3,#10. 

I VALUE LESS THAN 10 ? 

34 000060 

100403 



BMI 

LTIO 

; -YES, GOTO LTIO 

35 C00062 

062703 

000067 


ADD 

#<'A-10.>,R3 

IADD BASE ALPHANUMERIC OFFSET 

36 000066 

000402 



BR 

OUT 


37 000070 

Q627C2 

000060 

ltio: 

ADD 

l'0,R3 

IADD BASE NUMBER OFFSET 

33 000074 

110300 


out: 

MOVB 

R3.R0 


39 000076 




.TTYOUT 


! OUTPUT CHARACTER 

40 000102 

41 

42 000104 

43 

44 

000207 


. 

RTS 

PC 


040 


space: 

•ASCII 

/ / 

! ASCII SPACE 

000031 


i 

.END 




ORIGINAL PAGE 19 
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HOOHP.HAC 
SYMBOL TABLE 


HACK) V04.00 31 -HAY-83 16.'04:36 PAGE 1-1 


HDUMP OOOOOORG 
HEXOUT OCC026f? 


LT10 CC0070R OUT 000074R SEND 000050R 


SPACE 


. ABS. COOOOO 
00C105 

ERRORS DETECTED: 


000 

001 

0 


VIRTUAL MEMORY USED.' 81V2 WORDS { 32 PAGES) 
DYNAHIC MEMORY AVAILABLE FOR 54 PAGES 

hduhp,lp:=hduhp 


000104R 


167 

OKIGINAL PAGE tfe 
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III. 14 CONVRT 


FORTRAN IV 


V02.3-5 


Hfd 03-Aui-83 00:06150 


PAGE 001 


C ♦***«*###*#######**«*####*####**#**##### 

c 

C PROGRAM CONVRT^FgR^- DATA CONVERSION 

C D.VOELZ 

C 

i ***•**•*”«*•••«*••*•*••»•• 

E mi ?S G Siie5iWIiT s TB}g' , ?S Elfef§sll&Y L Hr 


c 

c 

c 

c 

c 

c 

c 

c 

c 


THE TRANSFER OF DATA TO THE CYBER. 

THE PROGRAM ALSO ALLOWS THE GROUND 'TEED (KTS), 

ALTITUDE (FT), LATITUDE (DEG. -MIN), hND 
LONGITUDE (DEG. -MIN) TO BE ADDED TO THE ASCII 
FILE. 

THE ASCII FILE FORMAT IS AS FOLLOWS: 

WRITE (4, 120 )BINS,LBI,CSET,CPROF,MN, DAY, YR, HRS, MINS, SECS 
120 FORMAT (415,613) 

WRITE (4, 125JGSPD, ALT, LAT, LONG 
125 FORMAT ( I5»F7.3,2F7. 1 ) 


WRITE(4, 
128 FORMAT ( 12( 


(LDATA(I) ,1=1, BINS) 
)) 


**# NOTE IN THE PROGRAM ALL THE FORMAT STATEMENTS ABOVE 
^JN^JH A 'IX'. THIS IS SIMPLY THE CONTROL 


C 

0001 PROGRAM CONVRT 

mi Ml B863 : TZ4 1 00 * 

0004 INTEGER HRS, MINS, SECS 

0005 REAL ALT (9?) ,LAT (99) , LONG (99) 

0006 L0GICAL*1 DEVF(4 ) , DEVT (4) ,EXT (3) , NAMEF ( 13) , NAMET (15) 

0007 L0GICAL*1 I T I ME ( 8 ) 

0008 INTEGERS JTIM 

[ s r r s sss s :s sss s i s s s sss ss s is a s s s 

C INPUTS 

c 

c INITIAL VALUES 
C 

0009 HDRB=9 

0010 DATA NAMEF/O, 0,0,0, 'S', 'E'. 'T',0, 0,0, '. ', 'D', 'A', 'T',0/ 

0011 DATA NAMET/O, 0,0,0. 'S'. 'E', 'T',0, 0,0, ', 'A', 'S', 'C',0/ 
C 

C GET INITIAL RESPONSES (DEVICE. SET #,# OF PROFILES) 

C 

0012 TYPE 10 

0013 READ (5,15) (DEVF( I ) , 1=1 ,4) 

0014 TYPE 20 


ORIGINAL PAGE (S 
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FORTRAN IV 


V02.5-5 


Wed 03-Aus-83 00 .’06 :50 


PAGE 002 


0015 

0016 

0017 

0018 
0019 


0020 


0021 

0022 

0023 

0024 


READ(5» 15) (DEVT!I).I=1,4) 
27 TYPE 30 

READ(5,«) DSET 
TYPE 40 

READ(5,») NPROF 


10 FORMAT ( ' ' ,T32> 'DATA CONVERSION '. ///T5, 'DEVICE! ', /T5 
>, ' From ? ',*) 

15 FORMAT (4A1 ) 

20 FORMAT ( ' ',T5. ' To ? ',*) 

30 FORMAT! 'O', /T5, 'SET I ? ',*) 

40 FORMAT!' ',T5, 'TOTAL # OF PROFILES IN SET ? 


) 


INPUT GROUND SPEED, ALTITUDE , LATITUDE. LONGITUDE 


0025 

C 


DO 90 K=l, NPROF 

0026 



TYPE 50, DSET, K 

0027 



TYPE 52 

0028 



READ<5,*) GSrD(K) 

0029 



TYPE 56 

0030 



READ(5»*) ALT (K ) 

0031 



TYPE 60 

READ(5,#) LAT(K) 

0032 



0033 



TYPE 64 

0034 



READ(5,t> LONG(K) 

0035 

r 

90 

CONTINUE 

m 


1? 

HUM 

0038 

0039 


56 

FORMAT!' ',T5, 'Altitude (FT) ? ',$) 


60 

FORMAT!' ',T5> 'Latitude (DEG. -MIN.) ? ',•) 

00*0 


64 

FORMAT!' ',T5, 'Longitude (DEG. -MIN.) ? ',*) 


c 

:::: 

::jrcc:ssr:::3S33zis:si2Bsx 


i 

CONVERT FILES 


c 

c 

SET UP FILE NAMES (SETXXX.DAT — > SETXXX.ASC) 

0041 

L 


DO 70 1=1.4 

0042 



NAMEF ( I ) =DEVF ( I ) 

0043 



NAMET ( I ) =DEVT ( I ) 

0044 

r 

70 

CONTINUE 

0045 



ENCODE (3,80, EXT ) DSF7 

0046 


80 

FORMAT ( 13 ) 

0047 

0048 



NAmIf ( 7+ 1 ) = '0 ' 

0049 



NAMET ( 7+1 ) = '0 ' 

0050 



IF (EXT ( I ) .EG. ' ') GOTO 85 

mi 




0054 


85 

CONTINUE 


,13) 


CALCULATE RECORDSIZE FOR OLD FILE AND INITIAL BLOCK SIZE 
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FORTRAN IV V02.5-5 U'd 03-Aus-B3 00:06.*50 


PAGE 003 


0035 

881 $ 

0038 

0059 

0060 
0061 


mi 


0064 


0065 

0066 

0067 

0068 

0069 

0070 

0071 


mi 

0074 

0073 

mi 

0078 


0079 

0080 
OOBi 
0082 


0083 

0084 


C 

C 


C 

C 

C 


C 

C 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


E 


c 

c 

c 

c 


FOR NEU FILE 

OPEN ( UNI T»3» TYPE 3 'OLD ' , RECORDS I ZE* '2 ' »NAME=NAHEF , ACCESS* 
> 'DIRECT', FORM 3 'UNFORMATTED') 

READ(3'1)BINS 
CLOSE (UNIT=3) 

RECSIZ 3 (BINS+HDRB+l)/2 

INTSIZ 3 IF1X(( FLOAT (NPROF )# (BINS+15 ) /256.+l.l)*6.) 


OPEN OLD & NEU FILES 


OPEN ( UNI T =3 , TYPE- 'OLD ' , RECQRDSIZE 3 RECSIZ , NAME = NAMEF , ACCESS 3 
> 'DIRECT ' , FORM 3 'UNFORMATTED ' ) 

OPEN (UN IT = 4, TYPE 3 'NEU ' , INITIALSIZE*INTSIZ,NAHE 3 ^AMET) 


CONVERT DATA BY PROFILES (K=PROFILE #) 


Kultt'MiKKi , CSE'l ,LPROF,MN,DAY,YR, JTIM, 
XLDATA(I), 1 = 1, BINS) 

CONVERT ALTITUDE FROM FEET TO KILOMETERS 

ALT(K) 3 ALT(K)». 0003048 

CONVERT TIME 

CALL TIMASCt JTIM, I T I ME ) 

I T I ME ( 3 > = I T I ME ( 4 ) 

I T I ME ( 4 ) = I T I ME ( 5 ) 

ITIME(3)=ITIME(7) 

ITIME ( 6 ) 3 ITIME ( 8 ) 

DEC0DE<6, 115, ITIME)HRS,'»INS, SECS 
113 FORMAT (312) 


HRITE ASCII FILE 


Tj-jJiJZjj [j INJ^Ij.8 1 , CSET , CPROF , MN , DAY , YR , HRS , MINS , SECS 


120 

MRITE(4 , 125)GSPD(K ) , ALT(K ) ,LAT(K ) ,LONG(K ) 
125 FORMAT ( IX, I5,F7.3,2F7. 1 ) 

,28 ?8(Sh^UX??l(^)) A<n,I ’ 1,BINS ’ 


100 CONTINUE 

”cl6se"6ut~fIles 


CLOSE ( UNI T=3 ) 

CL0SE(UNIT«4) 

TYPE 130,CSET 

130 FORMAT ( '0 ' ,T3. 'SET # ',13,' CONVERTED') 
RETURN FOR NEXT SET 


GOTO 27 
END 
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FORTRAN 

IV 

Storage 

Hap for 

Program Unit 

CONVRT 



Local Variables. .PSECT 

•DATA. 

Size 

' 013112 

( 2853. words) 


Name 

T ype 

Offset 

Name 

T ype 

Offset 

Name 

T ype 

Offset 

BINS 

1*2 

013052 

CPROF 

1*2 

013064 

CSET 

1*2 

013062 

DAY 

1*2 

013044 

DSET 

1*2 

013036 

HERB 

1*2 

01L050 

m. 

Wi 

8138W 

I 

13 

$13183 

tm s,z 

11 ? 

813811 

MINS 

1*2 

013070 

HN 

1*2 

013042 

NPROF 

1*2 

013040 

RECSIZ 

1*2 

013060 

SECS 

1*2 

013072 

YR 

1*2 

013046 


Local and COMMON Arrays.* 


at* 

T ype 
R*4 

i m on 

mm 

000614 

i 

198. ) 

?w ns 

DEVF 

L* 1 

♦ DATA 

012722 

000004 

( 

2. ) 

(4) 

DEVT 

L* 1 

IDATA 

012726 

000004 

< 

2. ) 

(4) 

EXT 

L* 1 

• DATA 

012732 

000003 

( 

2. ) 

(3) 

GSPD 

1*2 

IDATA 

000000 

000306 

( 

99. ) 

(99) 

I T I ME 

L*1 

$DATA 

012773 

000010 

< 

4. ) 

(8) 

LAT 

R*4 

IDATA 

011272 

000614 

( 

198.) 

(99 5 

LDATA 

1*2 

IDATA 

000306 

010150 

< 

2100. ) 

(2100) 

LONG 

R*4 

IDATA 

012106 

000614 

t 

19C . ) 

(99) 

NAMEF 

L* 1 

IDATA 

012735 

000017 

( 

8. ) 

(15) 

NAMET 

L* 1 

IDATA 

017754 

000017 

( 

8. ) 

(15) 


Subroutines > 

Name Type 
FLOAT R*4 


Functions. Statement and Processor-Defined Functions! 

Name Type Name Type Name Type Name Type 

I F I X 1*2 TIMASC R»4 
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APPENDIX IV PREPROCESSING SYSTEM OPERATION PROCEDURE 


IV. 1 Data Collection 

The following is the procedure for assembling snd operating the lidar 
preprocessing system for sodium prof .le data collection. 

1. Connect the components of the receiving system as shown in Figure IV. 1 „ 
Note the following items: 

(a) Three cards a..e required in the Apple peripheral slots, the CCS 
serial card in slot 2, the DMA card in slot 4, and the disk con- 
troller card in alot 6. 

(b) Be sure to use the cable designated "Apple-LSI-11 " between the 
Apple CCS card and the LSI-11 DLV11-J card channel 0. 

(c) Use the shielded ribbon cable between th° Apple and the SI IPP unic. 

2. Connect the monitor output cf the Discriminator High Voltage Supply to 
a digital voltmeter. 

3. Check the settings of the lollowing components: 

Laser Control Unit - Trigger mode external 

Discriminator - single mode, V * 1 , AV ■ don't care, threshold multi- 
plier ■ X10 

PMT Timing Controller - Dlanking on, pP gate don't care, triggering 
external, internal rate don't care. 

4. Check the setting of the Discrinir a tor High Voltage Supply by first 
disconnecting the HV cable on the HV Output and then turning on the 
supply. The voltage should be adjusted until the monitor voltmeter 
reads about 2 volts (2000 volts HVS output). Snut off the supply and 
reconnect the HV cable. 


rv\ 
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RIBBON CABLE 


Figure 1^.1 Lxdar receiver connection map 
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5. Power up all of the components except the Apple and LSI-11 computers. 

The order in which the components are switched on is not critical. 

6. Load one of the Apple lidar software floppy disks into the Apple drive 
and switch on the Apple. Wait for the computer to boot up. Run the 
collection program SLPAPP.OBJ (BRUN SLPAPP.OBJ). 

7. Load one of the LSI-11 lidar software floppy disks into the LSI-11 
system drive and switch on the LSI-11. Wait for the computer to hoot 
up. Load a LSI-11 data floppy disk into the storage drive. (Normally 
the DXl : or DYl : drive is used as the system drive and DXO : or DYO: is 
used as the storage drive. For more details see Section 5.4 on Data 
Collection Software Options.) Run the collection program FZZ.SAV (RUN 
FZZJ. 

8. The preprocessing system should now be operational. The laser-tel -s cope 

alignment and data collection routines can be run by following tl.e 
prompts on the Apple and LSI-11 monitors. 

Notes : 

(a) Remember to power up the PMT cooling housing unit a few hours 
before the data collection to allow cne PMT to cool sufficiently. 

(b) In order for the preprocessing system to trigger the laser the 
trigger mode selector switch must be set to "external." However, 
the trigger mode switch can be set to "internal" for laser tuning 
or alignment of optics. 

(c) Two pulse delay circuits aie provided on the laser control unit. 
The circuits provide a dolay between an input trigger pulse and 
an output pulse with the duration of the delay set by an adjust- 
ment knob on the control unit. Normally, delay circuit #2 is 
incorporated between tne input laser trigger pulse and the final 
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trigger pulse sent to the laser head. Thus, there is a delay 
between the preprocessing systen laser trigger pulse and the 
actual laser firing. If the delay is too long, it is possible 
for the Apple in the preprocessing system to send the laser 
trigger pulse and then test to see if the collection is complete 
before the laser ever fires. This results in a laser trigger 
error message. If the laser is firing at approximately the same 
time as the Apple is testing for collection completion, some 
peculiar behaviors can result (such as the Apple "hanging"). 

These problems can be alleviated by reducing the delay with the 
adjustment knob (normally , $2 ADJ). 

IV. 2 Testing 

The following is a procedure for assembling and testing the prepro- 
cessing system without the rest of the lidar system components. 

1. Connect the preprocessing system components (Apple, LS7.-11 , and SLIPP 
unit) as shown in Figure IV. 1. However, do not connect the three SLIPP 
unit lines LCP, TRIG, and NIM to the receiving components. (Also, 
note the appropriate items ip Section IV. 1.) 

2. Connect the TRIG BNC output on the SLIP? unit to the LCP BNC input. 

This loop simulates the laser in the system. 

3. Connect a source of simulated photon pulses to the NIM BNC on the SLIPP 
unit. The pulses can be supplied by a couple of methods: 

(a) Use the PMT and the Discriminator-Amplifier aB shown in Figure 
IV. 1 and Rimply leak a small mount of light into the PMT. 

(b) Use a pulse generator with output pulses of about -1 V and 


1-20 MHz 
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A. Follow the steps outlined in Section IV. 1 (steps 6-8) for loading the 
Apple and LSI-11 disks and running the collection programs. However, a 
slightly altered version of the Apple collection program must be used 
because of some timing difficulties due to the TRIG-LCP loop. This 
program is labeled SLPTST.OBJ and should al6o be provided on the Apple 
lidar software disks. 
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